Написать программы с помощью паскаля. Срочно помогите!

begin
writeln('1)');
var m: array[1..10] of integer;
var cnt: integer;
for var i := 1 to 10 do begin m[i] := random(21); write(m[i]:4) end;
for var i := 1 to 9 do if m[i]*m[i+1] > 100 then inc(cnt);
writeln(#10, cnt);

writeln('2)');
var w: array[1..12] of integer;
var max := 1;
for var i := 1 to 12 do begin w[i] := random(81)-30; write(w[i]:4) end;
for var i := 1 to 12 do if w[i] > w[max] then max := i;
var tmp := w[12]; w[12] := w[max]; w[max] := tmp;
writeln(#10, w);

writeln('4-1)');
var s: array[1..5,1..6] of integer;
var ind: array of (integer, integer);
var sum: integer;
for var i := 1 to 5 do begin
for var j := 1 to 6 do begin
s[i,j] := random(21); write(s[i,j]:4);
if not(odd(s[i,j])) then begin
sum += s[i,j];
SetLength(ind, length(ind)+1);
ind[high(ind)] := (i,j);
end;
end;
writeln;
end;
writeln(sum, #10, ind);

writeln('3)');
var f: array[1..4,1..4] of integer;
var diag: integer;
for var i := 1 to 4 do begin
for var j := 1 to 4 do begin
f[i,j] := random(91)+10; write(f[i,j]:4);
end;
writeln;
end;
for var i := 1 to 4 do
for var j := 1 to 4 do
if i=j then diag += f[i,j];
writeln(diag);

writeln('4-2)');
var s2: array[1..5,1..5] of integer;
var row: array[1..5] of integer;
for var i := 1 to 5 do begin
for var j := 1 to 5 do begin
s2[i,j] := random(61)+20; write(s2[i,j]:4);
row[i] += s2[i,j];
end;
writeln;
end;
write(row);
end.