Помогите написать прогармму для паскаля прошу срочно

вот тебе программы на массивы, примени к своим задачам
program mas2_22; //максимальные в столбцах
uses crt;
label 1;
const n=2;
type mas= array[1..100,1..100] of integer;
var
w:char;
j,i:integer;
a:mas;
b:array[1..n] of integer;
s:array[1..n] of real;
// Процедура формирования массива, К - размер квадр. массива, Х - его имя
procedure vvod(k:integer; var x:mas); {-------------------------------}
var j,i:integer;
label a1;
begin
for i:=1 to k do
for j:=1 to k do begin
a1: write('x[',i,',',j,']= ');
readln(x[i,j]);
if abs(x[i,j]) > 1000 then goto a1;
end;
end;
// Процедура вывода мвссива на экран, К - размер массива, Х - его имя
procedure vivod(k:integer;x:mas); {--------------------------------}
var j,i:integer;
begin
for i:=1 to k do begin
for j:=1 to k do begin
write(x[i,j]:5);
end;
writeln; end;
end;
// Процедура поиска МАХ элемента в К столбце массива Х
procedure max(k:integer;var x:mas); {-------------------------------------}
var j,i,l,t:integer;
begin
for j:=1 to n do
for i:=1 to n-1 do
for l:=i+1 to n do
if x[l,j]>x[i,j] then
begin
t:=x[i,j];
x[i,j]:=x[l,j];
x[l,j]:=t;
end;
end;
BEGIN
randomize;
1:clrscr;
TextBackGround(150);
TextColor (red);
writeln(' Программа сортировки столбцов таблици для нахождения максимального');
writeln(' элемента в столбцах и нахождение среднеарифметических в столбцах');
writeln;
TextBackGround(15);
TextColor (black);
writeln( ' Исходная матрица');
writeln('-------------------------------');
vvod(n,a);
vivod(n,a);
writeln;
for i:=1 to n do
max(i,a);
writeln( ' матрица после сортировки столбцов');
writeln('-----------------------------------');
vivod(n,a);
writeln(' Максимальные элементы в столбцах ');
writeln('-------------------------------');
for i:=1 to n do begin
b[i]:=a[1,i];
write(b[i]:5); end;
writeln;
writeln('Среднеарифметические эл-ов по столбцам');
writeln('--------------------------------------');
for j:=1 to n do begin
s[j]:=0;
for i:=1 to n do
s[j]:=s[j]+a[i,j];
end;
for i:=1 to n do
write(s[i]/n:7:2);
writeln;
write('Будет еще вариант расчета? ввести (y/n)--> ');
readln(w);
if (w='y') or (w='Y') then goto 1;
writeln('конец задачи ');
readkey;
END.

uses crt;
var i, j, k: integer; l: longint;
a: array[1..30, 1..35] of integer;
begin
TextColor(red);
TextBackground(white);
clrscr();
randomize();
for i := 1 to 30 do
for j := 1 to 35 do
a[i, j] := random(191) + 10;
for i := 1 to 30 do
begin
k := 0;
l := 0;
for j := 1 to 35 do
if a[i, j] > 35 then
begin
k := k + 1;
l := l + a[i, j];
end;
writeln(i: 2, '.', l: 10, ' (', k: 2, ' elements)')
end
end.

uses crt;
var i, j, max: integer;
a: array[1..35, 1..40] of integer;
begin
TextColor(red);
TextBackground(white);
clrscr();
randomize();
for i := 1 to 35 do
for j := 1 to 40 do
a[i, j] := random(201) + 200;
for j := 1 to 40 do
begin
max := a[1,1];
for i := 2 to 35 do
if a[i, j] > max then max := a[i, j];
writeln(j: 2, '.', max: 5)
end
end.