Определение длины каждой строки текстового файла. (паскаль)

вот моя программа, файл я создал осталось только определить длину каждой строки. подскажите
как это можно сделать, пробовал с помощью length вылазит ошибка :нельзя преобразовать выражение типа Record (string[50]; string[30]; integer;string[30]) к типу string

Program groups;
uses crt;
type
Mgroups = Record name:string[50]; {название группы}
country: string[30]; {страна}
year_found: integer; {год основания}
style: string[30]; {жанр}
end;
Mg=file of Mgroups;
Var group:Mgroups; gr:Mg; l,s:integer;
begin
clrscr; textcolor(5);
assign(gr,'gr.txt');
rewrite(gr);
with group do
begin
write('название группы->'); readln(name);
write('страна->'); readln(country);
write('год основания->'); readln(year_found);
write('жанр->'); readln(style)
end;
write(gr,group);
close(gr);{закрытие файла} textcolor(9);reset(gr){открытие файла для чтения};
while not eof(gr) do {пока не конец файла делать: }
begin
read(gr,group); {чтение из файла}
with group do
begin
l:=length(country);
if country[l]= 'я' then
country[l]:= 'и';
if country[l]= 'а' then
country[l]:='е';
writeln('группа ', name , ' основана в ' , country, ' в ', year_found , ' году, выступает в жанре ', style); { выводим на экран}
writeln;
end;
end;
end.