Определение и вывод в таблицу положительных и отрицательных элементов матрицы

program matrica;
Uses crt;                                                  {вывод на экран}
 Var                                                          { описание переменных}
  a: array[1..6,1..6] of integer; 
  i,j: integer;
 n,m:integer;
Ch: char;                                                 {переменная для хранения кода символа нажатой клавиши}
str:  string;                                              {строковый литерал}
Label L1;                                                 {описание меток}
Begin                                                       {начало программы}
Textbackground (yellow);                   {цвет заставки}
 clrscr;                                                     {очистка экрана}
Textcolor (blue);                                   {цвет символов}
gotoxy (20,3);                                        {вывод текста в указанном месте экрана}
writeln ('Вашему вниманию представляется программа,');   {вывод информации на экран}
Textcolor (blue);
gotoxy (20,4);
writeln (' которая определяет и выводит в таблицу');
Textcolor (blue);
gotoxy (20,5);
writeln (' положительные и отрицательные элементы');
Textcolor (blue);
gotoxy (20,6);
writeln ('               матрицы');
Textcolor (red);
gotoxy (35,10);
writeln ('Внимание!');
gotoxy (20,12);
writeln ('1) Размерность данной матрицы должна быть');
gotoxy (20,13);
writeln ('не больше 6 строк и 6 столбцов;');
gotoxy (20,14);
textcolor (blue);
writeln ('Программу составила студентка группы ЭБИ-111');
gotoxy (50,18);
writeln ('Усачева Д.Г');
gotoxy (32,21);
writeln ('Москва, 2014');
gotoxy (20,25);
textcolor (blue);
writeln ('Нажмите любую клавишу для продолжения');
Ch:=readkey;      {организация задержки; считывание символа с клавиатуры}
 L1: clrscr;
begin
 clrscr;
 repeat;                {начало цикла с постусловием}
 writeln ('Хотите заполнить матрицу вручную?');
  ReadLn (str);
Until (str = 'да') or (str = 'нет');               {конец цикла с постусловием}
If str='да' then
begin
 
{---------------------------Ввод значений элементов массива-------------------------------}
 
 writeln ('Размерность данной матрицы должна быть не больше 6 строк и 6 столбцов');
 
{Ввод размерности матрицы}
 
  writeln ('----------------------------------------------------------------------');
 writeln('Введите количество строк матрицы');
 readln(n);
 writeln('Введите количество столбцов матрицы');
 readln(m);
{Ввод элементов матрицы}
writeln;
 writeln('Введите элементы матрицы');
 for i:=1 to n do
  begin
  for j:=1 to m do
  begin
   write('a[',i,',',j,']= ');
   readln(a[i,j]);
   end;
  writeln;
    end;
    end;
  if str='нет' then
  begin
  {---------------------------Ввод значений элементов матрицы-------------------------------}
 
 writeln ('Размерность данной матрицы должна быть не больше 6 строк и 6 столбцов');
 
{Ввод размерности матрицы}
 
  writeln ('----------------------------------------------------------------------');
 writeln('Введите количество строк матрицы');
 readln(n);
 
 writeln('Введите количество столбцов матрицы');
 readln(m);
 
{Ввод элементов матрицы}
 
writeln;
  writeln(' A:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  end;
  writeln ('_________________________');
  writeln(' TP:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      if a[i,j]>0 then write(a[i,j]:4)
        else write('    ');
 
    writeln;
  end;
  writeln ('_________________________');
  writeln(' TO:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      if a[i,j]<0 then write(a[i,j]:4)
        else write('    ');
    writeln;
  end;
  writeln ('_________________________');
  readln;
end;
end.