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

Формулировка задачи:

Есть главный файл

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.

Решение задачи: «Паскаль подключение модуля»

Листинг программы

unit modul;
interface
type
   spisok=record
      ime,tip:string;
      stoim,sum:byte;
   end;
   arr=array[1..100] of spisok;
 
var zap:arr;
Temp,i,j,n:byte;
max:spisok;
procedure Vvod(n:byte);
procedure sort(n:byte);
 
implementation
 
procedure Vvod(n:byte);
begin
   for i:=1 to n do
   begin
      write('Ime firmu ');readln(zap[i].ime);
      write('Stoimost stroenia ');readln(zap[i].stoim);
      write('tip stroenia');readln(zap[i].tip);
      write('symma vklada');readln(zap[i].sum);
   end;
end;
 
procedure sort(n:byte);
begin
   for i:=1 to n do
      if zap[i].sum = zap[i].stoim then begin
         Temp:=i;
         writeln;
         write(zap[Temp].ime,' ',zap[Temp].stoim,' ',zap[Temp].tip,' ',zap[Temp].sum);
         writeln;
      end;
end;
 
End.

Объяснение кода листинга программы

Создаётся модуль modul.
Определяется тип spisok, который содержит поля ime, tip, stoim и sum.
Создаётся массив arr типа spisok со 100 элементами.
Создаются переменные zap, Temp, i, j и n типа byte.
В процедуре Vvod(n:byte) считывается информация о фирме из файла и записывается в соответствующий элемент массива zap.
В процедуре sort(n:byte) происходит сортировка элементов массива zap по полю sum. Если элементы равны по полю sum, то они также равны по полю stoim, tip и ime. Элементы с одинаковыми значениями в поле sum меняются местами.
Программа завершается.