Решить через процедуры и функции

[Richik123]

1)var
s, sl, smax: string;
i, n, dmax, nmax: integer;

begin
write('Вводим строку s=');
readln(s);
s := s + ' '; sl := '';dmax := 0;
for i := 1 to length(s) do
if s[i] <> ' ' then sl := sl + s[i]
else if length(sl) > 0 then
begin
inc(n);
if length(sl) > dmax then
begin
dmax := length(sl);
smax := sl;
nmax := n;
end;
sl := '';
end;
writeln('Самое длинное слово "', smax, '" длиной в ', dmax, ' символов, порядковый номер ', nmax);
write('s=', s);
end.

2)program M123;

var
i, j, i1, i2, i3, i4, i5: integer;
Stroka: String;
SK1, SK2, sk3, sk4, sk5, sk6: Char;

begin
SK1 := '(';
SK2 := ')';
SK3 := '[';
SK4 := ']';
SK5 := '{';
SK6 := '}';
WriteLn('Введите строку со скобками: ');
ReadLn(Stroka);
WriteLn;
for j := 1 to Length(Stroka) do
begin
i := pos(SK1, Stroka);
i1 := pos(SK2, Stroka);
i2 := pos(SK3, Stroka);
i3 := pos(SK4, Stroka);
i4 := pos(SK5, Stroka);
i5 := pos(SK6, Stroka);
end;
if i <> 0 then WriteLn('( - ОК!')
else WriteLn('( - No!');
if i1 <> 0 then WriteLn(') - Ok!')
else WriteLn(') - No!');
if i2 <> 0 then WriteLn('[ - Ok!')
else WriteLn('[ - No!');

3)uses
crt;

var
i, j, chet, nechet: byte; a: array[1..5, 1..5] of byte;

begin
Randomize;
WriteLn('Сформируем матрицу размерностью 5х5.');
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i, j] := Random(8) + 1;
if a[i, j] mod 2 = 0 then
chet := chet + 1
else
nechet := nechet + 1;
Write(a[i, j]:2);
end;
WriteLn();
end;
WriteLn('Количество четных чисел = ', chet);
WriteLn('Количество нечетных чисел = ', nechet);
if chet > nechet then
WriteLn('В матрице 5х5 четных чисел больше, чем нечетных.')
else
WriteLn('В матрице 5х5 нечетных чисел больше, чем четных.');
end.

4)program prj;

uses
crt;

var
a: array [1..5, 1..5] of integer;
i, j, sum: integer;

begin
writeln('Дана матрица');
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
a[i, j] := random(19) - 9;
write(a[i, j]:3);
if j < i then inc(sum, a[i, j]);
end;
writeln;
end;
writeln('Сумма ниже главной диагонали=', sum);
end.