Дана матрица А (6,6). Определить отрицательные элементы в строках матрицы А. Создать таблицу из 6 строк TAB, где в каждой строке будут располагаться найденные отрицательные элементы из строк матрицы А, возведенные в квадрат. Вывести А и под ней TAB — Pascal(Паскаль)

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Таблица TAB:');
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to n do
  if a[i,j]<0 then
    begin
     k:=1;
     write(sqr(a[i,j]):4);
    end;
  if k=0 then write('В строке ',i,' отрицательных нет');
  writeln;
 end;
readln
end.