найти ошибку в двухмерном массиве

[Эnnа]

не могу проверить,на windows 7 паскаль не работает
посмотрите пожалуйста

Program dvym;
Uses crt;
Const n=6
Var x:array [1..n,1..n] of integer;
       A=array [1..6] of integer;
       imax, z:integer;
       i,j:byte;
Begin
     clrscr;
     for i:=1 to n do 
         for j:=1 to n do    readln(x[i,j]);
     for i:=1 to n do
         begin
              imax:=-32768;
              for j:=1 to n do 
                       if x[i,j]<0
                          Then if imax<x[i,j]
                                      Then imax:=x[i,j];
              A[i]:=imax;
          end;
     for i:=1 to n do 
         if A[i]>A[i+1]
             Then
                     begin 
                             z:=A[i];
                             A[i]:=A[i+1];
                             A[i+1]:=z;
                     end;
      for i:=1 to n do    write(A[i]:3:2,’ ‘);
      Readkey;
End.

условие задачи: найти наибольшие элементы среди отрицательных элементов каждой строки матрицы х (6,6),полагая,что в каждой строке есть хотя бы один отрицательный элемент.Найденные наибольшие элементы записать в одномерный массив Х в порядке возрастания.

[_-Re@l-_]

Const n=6

В конце точку с запятой надо поставить

   A=array [1..6] of integer;

Вместо равно двоеточие поставьте

   for i:=1 to n do    write(A[i]:3:2,’ ‘);

У вас массив типа Integer, так зачем же ограничение?
Просто вот так:

 for i:=1 to n do    write(A[i],’ ‘);

P.S. На правильность логики не проверял, лишь проверил на синтаксис

[Эnnа]

ооогромное спс

[_-Re@l-_]

пожалуйста, нажмите на весы под моей картинкой между оранжевого кругляшка и вопросительного знака и нажмите добавить отзыв