матрицы паскаль

[Aleksey_Popov93]

надо срочно сделать программу
дан двуменый массив 8на7 заполненный случайным образом. заменить все элементы пеервых трех столбцов на их квадраты. вставить между средними строками ервую строку. удалить все столбцы, в которых первый элемент больше последнего. поменять местами средние строки с первой и последней

[Филантроп]

{дан двуменый массив 8на7 заполненный случайным образом.
заменить все элементы пеервых трех столбцов на их квадраты.
вставить между средними строками ервую строку.
удалить все столбцы, в которых первый элемент больше последнего.
поменять местами средние строки с первой и последней}


type matrix = array[1..100,1..100] of integer;
var i,j,k:integer;
  m,n,t:integer;
  a:matrix;
begin
randomize;
Writeln('====Matrix====');
m:=7;n:=8;
For i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10)+1;
write(a[i,j]:4);
end;
writeln;
end;
Writeln('====KBagpaT 1-3 u nepBa5 cTpoka nocepeguHe====');
For i:=1 to n do
for j:=1 to 3 do
a[i,j]:=sqr(a[i,j]);
 n:=n+1;
for i:=n downto 6 do
for j:=1 to m do
a[i,j]:=a[i-1,j];
for I := 1 to m  do
a[5,i]:=a[1,i];
For i:=1 to n do Begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
 Writeln('====YgaJIuTb CTOJI6LLbI====');
i:=1;
while i<=m do begin
if a[1,i] >a[n,i] then begin
for k:=1 to n do
for j:=i to m-1 do
a[k,j]:=a[k,j+1];
m:=m-1;end
else inc(i);
end;
For i:=1 to n do Begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
Writeln('====Смена  CTpOk====');
for I := 1 to m  do begin
   t:=a[1,i];
   a[1,i]:=a[4,i];
   a[4,i]:=t;
   t:=a[n,i];
   a[n,i]:=a[6,i];
   a[6,i]:=t;
   end;
 For i:=1 to n do Begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end.