Задачка на функцию+прцоедуры.

program pr;const n=4;m=4;l=6;
type
 mas=array[1..l] of real;
 mas1=array [1..n,1..m] of integer;
var
 a:mas1;             k:mas;
 b,p:mas;          c:mas;
 i,j:integer;
function F(x:real):real;
begin
   F:=x*x+1;
end;
procedure w(c:mas;var y:mas);
var i:integer;
begin
  for i:=1 to l do
    y[i]:=F(c[i]);
end;
procedure w1(k,m:mas);
var
r,i,j:integer;
begin
  r:=0;
  for i:=1 to l do
  for j:=1 to m do
  if k[i]=m[j] then writeln(m[j])
  else
  r:=1;
  if r=1  then writeln('net covp elementov');
end;
procedure wfy;
begin
  w(c,k);
  w1(k,m);
end;
begin
for i:=1 to l do 
  read(c[i]);
  for i:=1 to m do
  read(m[i]);
  for i:=1 to l do
  read(p[i]);
  for i:=1 to n do
  for j:=1 to m do
  read(a[i,j]);
  for i:=1 to l do
  p[i]:=int(p[i]);
  for i:=1 to n do begin
    write(i,'storka:');
  for j:=1 to m do
  b[j]:=a[i,j];
  w1(b,p);
  end;
  end.