программа в турбо паскале

Question

1, дан двумерный массив. определить есть ли 2 одинаковых элемента. 
2,дан файл F, компоненты которого являются действительными числами. Найти сумму наибольшего и наименьшего их значений компонент.

travis_56 · Accepted Answer

первая 
program ohshi; 
var a, b: array[0..3, 0..3] of integer; 
r:boolean; 
i,j,k,l: byte; 
begin 
r:=false; 
for i:=0 to 3 do 
for j:=0 to 3 do 
readln(a[i,j]); 
for i:=0 to 3 do 
for j:=0 to 3 do 
readln(b[i,j]); 
for i:=0 to 3 do 
for j:=0 to 3 do 
for k:=0 to 3 do 
for l:=0 to 3 do 
if a[i,j]=b[k,l] then r:=true; 
if r then writeln('Hoorray!'); 
readln; 
end.

Программа в турбо паскале