........
procedure TRecord.Input;
writeln('введите продолжительность');
readln('........')
writeln('Введите имя исполнителя');
readln(FIspolnitel);
writeln('Введите название песни');
readln(FChanson);
end;

procedure TRecord.Print;
begin
writeln('Исполнитель: ', FIspolnitel);
writeln('Песня: ', FChanson);
writeln('продолжительность:', ....)
end;

function TRecord.LoadFromTFile(var f : Textfile): boolean;
var str : string;

begin
Result:=GetStrValue(f, str);
if Result then FIspolnitel := str;

Result := GetStrValue(f, str);
if Result then FChanson := str;

Result := GetStrValue(f, str);
//продолжительность

end;
procedure TRecord.SaveToTFile(var f : TextFile);
begin
writeln(f, 'Исполнитель: ', FIspolnitel);
writeln(f, 'Песня : ', Fchanson);
writeln(f,'прожолжительность:', !!!!!!!!)
end;

procedure TRecord.SetIspolnitel (AIspolnitel : string);
begin
if Ispolnitel <> ''
then FIspolnitel := Ispolnitel;
end;

function TRecord.GetIspolnitel : string;
begin
Result := FIspolnitel
end;

procedure TRecord.SetChanson(AChanson : string);
begin
if Chanson > ''
then FChanson := Chanson;
end;

function TRecord.Getchanson : string;
begin
Result := FChanson;
end;

аналогичные процедуру/функцию про продолжительность [Ответ]

Вот модуль, в нем все правильно, только это тип данных
Time:TDateTime
не знаю как добавить - не поможете? [Ответ]

чо за задачка то?))
и столько кода лучше не постить, ибо врядли кто разбираться будет, ключевые места только давай [Ответ]

Про тип TDataTime почитай в справке Delphi. Он находится в модулк System. Либо просто подклюяи System если тебе трудно почитать. [Ответ]