строки, записи, работа с файлом

program lab_6;
uses crt;
const
g=3; {кол-во записей}
type
note=record
f,u:string[255];
n:integer;
m: array [1..3] of integer;
end;
var i,j,d,q:integer;
ch:char;
p:note;
naz1:string[255];
a: array [1..8] of note;
naz2:text;
begin
clrscr;
write('Введите имя файла: ');
readln(naz1);
write('Введите месяц (цифрой): ');
readln(d);
writeln('Введите данные (Фамилия Имя, Номер телефона, День рождение(через пробел)): ');
for i:=1 to g do begin
 
  repeat
   read(ch);
   a[i].f:=a[i].f+ch;
 until ch=',';
 
   repeat
   read(ch);
   a[i].u:=a[i].u+ch;
 until ch=',';
 
readln(a[i].n, a[i].m[1],a[i].m[2],a[i].m[3]);
end;
 
{сортировка фамилий}
for i:=1 to g do begin
  for j:=g downto i do begin
   if a[i].f>a[j].f then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end;
  end;
end;
 
{запись файла}
assign(naz2,naz1);
Rewrite(naz2);
  for i:=1 to g do Writeln(naz2,a[i].f,' ',a[i].u,' ',a[i].n,' ',a[i].m[1],' ',a[i].m[2],' ',a[i].m[3]);
  Close(naz2);
 
{сортировка по месяц}
q:=0;
for i:=1 to g do begin
if d=a[i].m[2] then begin
write(a[i].f,' ',a[i].u,' ',a[i].n,' ');
for j:=1 to 3 do write(a[i].m[j],' ');
q:=1;
end;
writeln;
end;
if q=0 then writeln('net');
readln;
readln;
 
end.