паскаль подключение модуля

[akaNoit]

Есть главный файл
uses modul;
var n:byte;
Begin
writeln('Введите кол-во записей:');
readln(n);

Vvod(n);
sort(n);
write(zap[Temp].ime,' ',zap[Temp].stoim,' ',zap[Temp].tip,' ',zap[Temp].sum);
End.

А вот модуль
unit modul;
interface
type spisok=record
arr=array[1..100] of spisok; {ERRORругаеться, что перед равно нет двоеточия}

ime,tip:string;
stoim,sum:byte;
var zap:arr;
Temp,i,j,n:byte;
max:spisok;
procedure Vvod(n:byte);{ERRORотсутствует опредение процедуры}
procedure sort(n:byte);
implementation

Begin
procedure Vvod(n:byte);
begin
for i:=1 to n do
begin

write('Ime firmu ');readln(zap.ime);
write('Stoimost stroenia ');readln(zap.stoim);
write('tip stroenia');readln(zap.tip);
write('symma vklada');readln(zap.sum);

end;
end;
procedure sort(n);
begin
for i:=1 to n do

if zap.sum = zap.stoim then begin
Temp:=i;
writeln;
write(zap[Temp].ime,' ',zap[Temp].stoim,' ',zap[Temp].tip,' ',zap[Temp].sum);
writeln;
end;
End.

[Delphi_ProGer]

arr:array[1..100] of spisok;

[BDA]

Delphi_ProGer, конечно так можно исправить, но лучше спросить ТС:
Что же вы пытаетесь сделать? Запись с массивом? 2 записи?

type spisok=record
ime,stoim,tip,sum:string[80];
end;
arr=array[1..100] of spisok;

implementation

procedure Vvod(n: byte);
begin
  for i := 1 to n do
  begin 
    write('Ime firmu ');readln(zap.ime);
    write('Stoimost stroenia ');readln(zap.stoim);
    write('tip stroenia');readln(zap.tip);
    write('symma vklada');readln(zap.sum); 
  end;
end;

procedure sort(n: byte);
begin
  for i := 1 to n do  
    if zap.sum = zap.stoim then begin
      Temp := i;
      writeln;
      write(zap[Temp].ime, ' ', zap[Temp].stoim, ' ', zap[Temp].tip, ' ', zap[Temp].sum);
      writeln;
    end;
end;

end.