паскаль помогите пожалуйста мне ( не работает код)

program lab5;
uses crt;
const Nmax=100; Mmax=5000; Rmax=2000;
type ar1 = array[1..Nmax] of integer;
ar2 = array[1..Mmax] of integer;
ar3 = array[1..Rmax] of integer;
sa = array[1..1] of integer;
var x:ar1;
y:ar2;
z:ar3;
k,i,j,kol:byte;
f:text;
ch:char;
{----------------------------------------------}
Procedure waitEscape;
var ch:char;
begin
repeat
ch:=readkey;
until ord(ch)=27;
end;
{----------------------------------------------}
procedure load_vector(var x; path:string; n:byte);
var f:text;
i:byte;
begin
assign(f,path);
reset(f);
for i:=1 to n do
read(f,sa(x));
end;
{----------------------------------------------}
procedure veiw_vector(var x; n:byte);
var i:byte;
begin
for i:=1 to n do
write(sa(x),' ');
writeln;
end;
{----------------------------------------------}
procedure continue(var k:byte;ch:char);
begin
writeln('Do You Wish To Continue(Y,N)?');
writeln;
ch:=readkey;
k:=0;
if ch in ['n','N'] then
begin
Writeln('Are You Want To Exit(Y,N)?');
ch:=readkey;
if ch in ['y','Y'] then
k:=1
end;
end;
{----------------------------------------------}
function search_for_el(var x;n:byte):integer;
var i,j:byte;
k:byte;
cond:boolean;
begin
cond:=true;
i:=0;
j:=0;
while cond do
begin
inc(i);
j:=0;
while cond and (j