Ошибка в модуле

unit SORT;
 
interface 
 
const
n = 3;
 
type
TList = record
fio: string[30];
    facultet: String[30];
    gruppa: string[6];
    godrozhdenia: integer;
end;
 
var
List: array [1..4] of Tlist;
  k, c: integer;
 
procedure search;
procedure vvod;
procedure print;
 
implementation
 
procedure vvod;
var
i: integer;
begin
writeln('Введите количество записей');
 
  readln(k);
 
for i := 1 to k do
    with List[i] do
    begin
writeln('ФИО ', i);
      write('Ф.И.О: '); 
      readln(fio);
      write('Факультет: '); 
      readln(facultet);
      write('Группа: '); 
      readln(gruppa);
      write('Год рождения: '); 
      readln(godrozhdenia);
end;
end;
 
procedure print;
var
i: integer;
begin
writeln('ФИО ':30, 'Факультет ':30, ' Группа ':15, ' Год рождения':15);
for i := 1 to k do
    with List[i] do
writeln(fio:30, facultet:30, gruppa:15, godrozhdenia:15);
end;
 
procedure search;
var
i: integer;
begin
writeln('Результаты:');
for i := 1 to k do
      if (List[i].godrozhdenia=1998) and (List[i].gruppa = '15ви1') then 
writeln(list[i].fio:30, '  ', list[i].facultet:30, '  ', list[i].gruppa:15, '  ', list[i].godrozhdenia:15);
end;
end.

uses
 sort;
begin
  vvod;
  print;
  search;
end.