Сортировка данных из файла

program sort;
 uses crt;
 type tx=array [1..100] of integer;
 var
 x:^tx;
d,y,i,j,n:integer;
k:boolean;
begin
randomize;
writeln(' Введите кол-во элементов массива ');
read(n);
writeln('Случайный массив');
getmem(x,n*sizeof(integer));
for i:=1 to n do
begin
x^[i]:=random(100);
write(x^[i],' ');
end;
 writeln;
begin
   d:=N div 2;
   y:=1;
   while d>0 do begin
         k:=true;
         while k do
         begin
         k:=false; i:=1;
         for i:=1 to N-d do
               begin
               if x^[i]>x^[i+d] then
                  begin
                  j:=x^[i]; x^[i]:=x^[i+d]; x^[i+d]:=j;
                  k:=true;
 
                  end;
               end;
         end;
   d:=d div 2;
   writeln('Проход',y);
   for i:=1 to n do
   write(x^[i],' ');
   writeln;
   y:=y+1;
   end;
  end;
dispose(x);
end.

program sort;
uses crt;
type  stud=record
           grup:string;
           fakult:string;
           FIO: record
                  F:string;
                  I:string;
                  O:string;
                end;
         end;
 
var i,n:integer;
    c:^array[1..100] of stud;
    f:text;
    s:string[10];
    p:stud;
         
procedure ShellSort(var a:array[1..100] of stud;n:integer);
var d,y,i:integer;
    j:stud;
    k:boolean;
begin
   d:=N div 2;
   y:=1;
   while d>0 do begin
         k:=true;
         while k do
         begin
         k:=false; i:=1;
         for i:=1 to N-d do
               begin
               if a[i].FIO.F>a[i+d].FIO.F then
                  begin
                  j:=a[i]; a[i]:=a[i+d]; a[i+d]:=j;
                  k:=true;
                  end;
               end;
         end;
   d:=d div 2;
   writeln('Проход',y);
   for i:=1 to n do
   writeln(IntToStr(i)+'. Студент - '+a[i].FIO.F+' '+a[i].FIO.I+' '+a[i].FIO.O+' Группа - '+a[i].grup+' Факультет - '+a[i].fakult);
   writeln;
   y:=y+1;
   end;
end;
procedure outmas(c:array[1..100] of stud;n:integer);
var i:integer;
begin
    for i:=1 to n do
      begin
        writeln(IntToStr(i)+'. Студент - '+a[i].FIO.F+' '+a[i].FIO.I+' '+a[i].FIO.O+' Группа - '+a[i].grup+' Факультет - '+a[i].fakult);
      end;
 
end;
begin
Assign(f,'text.txt');
  Reset(f);
  readln(f,n);
  getmem(c,sizeof(stud)*n);
  for i:=1 to n do
  begin
  readln(f,s);
      p.FIO.F:=s;
      readln(f,s);
      p.FIO.I:=s;
      readln(f,s);
      p.FIO.O:=s;
      readln(f,s);
      p.grup:=s;
      readln(f,s);
      p.fakult:=s;
      c^[i]:=p;
  end;
  close(f);
clrscr;
writeln('Исходный массив');
outmas(c^,n);
ShellSort(c^,n);
writeln('Отсортированный массив');
outmas(c^,n);
dispose(c);
end.