Паскаль. Массивы

[Arshavin10]

Народ, помогите пож. написать программу

Даны два целочисленных массива K(m) и L(n). Найти наибольший элемент массива K, не имеющий себе равных в массиве L.

[Stilet]

Процедуры и функции проходил?

[SuperVisor]

Смотрим тут и тут

А еще, помнится, в далеком 2006 году (когда форум на новом движке был совсем молоденький) всех посылали в поиск, а потом решили огласить ПРАВИЛА, чтобы их читали... А дальше дело шло к посыланиям на ПРАВИЛА и штрафу...
Но, к великому сожалению, администрация решила, что это не очень гуманный способ...

[ОДИНОЧЕСТВО В СЕТИ]

Даны два целочисленных массива K(m) и L(n). Найти наибольший элемент массива K, не имеющий себе равных в массиве L.

program mass;
uses crt;
type mas=array[1..100] of integer;
var 
i,j,max,m,n:integer;
k,l:mas;

function yes(a:integer;b:mas;c:integer ):boolean;
var h:integer;
begin
yes:=false;
for h:=1 to c do
if a=b[h] then yes:=true;
end;
begin
max:=-9000;
writeln('input n');
readln(n);
for i:=1 to n do begin
writeln('input l[',i,']');
readln(l[i]);end;

writeln('input m');
readln(m);
for j:=1 to m do begin
writeln('input k[',j,']');
readln(k[j]);end;
clrscr;
writeln ('mas k:');
for j:=1 to m do
write(k[j]:4);
writeln;
writeln('----------------');
writeln ('mas l:');
for j:=1 to n do
write(l[j]:4);
writeln('----------------'); 
 for j:= 1 to m do 
 if (not yes(k[j],l,n)) and (k[j]>max)
   then max:=k[j];
   if max= -9000 then writeln('takih net')
   else
 writeln('max=',max);
readln;
end.