Нужна ! решите как можно скорей!

Const
 n=2;
 m=3;

Var
 ma:array[1..m,1..n] of integer;
 i,j:integer;
 s:set of integer; {множество, в которое будут попадать элементы строки}
begin
 randomize;
 s:=[];
 writeln('Matrix:');
 for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    ma[i,j]:=random(5);
    write(ma[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
begin
 for j:=1 to n do
  if not (ma[i,j] in s) then s:=s+[ma[i,j]]; {если элемента нет в множестве - добавляю}
 writeln(s); {вывод множества}
 s:=[]; {отчищаю множество для следующей строки}
end;
end.

Пример работы программы:
Matrix:
   1   1
   0   2
   0   2
{1}
{2,0}
{2,0}

Задача 1.

 var a, k, l, m: Integer;
begin
s:= 0;
writeln ('Введите число');
readln(a);
if (a>=10) and (a<=999) then
k:=a div 100;
l:= k div 10;
m:= a mod 10;
s:= k+m+l;
writeln ('Сумма цифр в числе равна ', s);
end.

Задача 2.

var i, a, s: Integer;
begin 
s:=0;
for i:= 1 to 3 do
begin
writeln ('Введите число №', i);
readln(a);
if (a>5) and (a mod 5 = 0) then 
inc(s);
end;
writeln('Количество четных чисел, которые делятся на 5 - ', s);
end.

Задача 3

var a, b, c, d, max, med, min: Integer;
begin
writeln ('Введите число');
readln(a);
b:= a div 100;
c:= b div 10;
d:= a mod 10;
if (b<c) and (b<d) then
min:= b;
if (c<b) and (c<d) then
min:= c;
if (d<c) and (d<b) then
min:= d;

if (b>c) and (b>d) then
max:= b;
if (c>b) and (c>d) then
max:= c;
if (d>c) and (d>b) then
max:= d;

if (b>c) and (b<d) or (b<c) and (b>d) then
med:= b;
if (c>b) and (c<d) or (c<b) and (c>d) then
med:= c;
if (d>c) and (d<b) or (d<c) and (d>b) then
med:= d;

writeln(min, med, max);
end.