помогите разобраться с Pascal - тема Массивы

[xSPiRiTx]

приветы!
вот на сдаче сессии не могу разобраться с лабораторной по Pascal на тему Массивы и индексированные переменные.

Само задание выглядит так:

{2.11. VAR A:ARRAY[1..8,1..10] OF INTEGER;
B:ARRAY[1..8] OF BOOLEAN;
по массиву А получить массив В, присвоив его k-му эле-
менту значение TRUE, если выполнено указанное ниже ус-
ловие, и значение FALSE - иначе: k-я строка массива А
симметрична.}

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

сначала я сделал как процедуру, но это не вписалось в задание:

procedure Check211;
VAR A:ARRAY[1..8,1..10] OF INTEGER;
   B:ARRAY[1..8] OF BOOLEAN;
   i,k:integer;
   tb:boolean;
begin
for i:=1 to 8 do
 begin
 tb:=true;
 for k:=1 to 5 do
   if A[i,k]<>A[i,11-k] then
     begin
     tb:=false;
     break;
     end;
 B[i]:=tb;
 end;
end;

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

program lab62;
uses crt;
VAR A:ARRAY[1..8,1..10] OF INTEGER;
   B:ARRAY[1..8] OF BOOLEAN;
   i,k:integer;
   tb:boolean;
begin
clrscr;
for i:=1 to 8 do
 begin
 tb:=true;
 for k:=1 to 5 do
   if A[i,k]<>A[i,11-k] then
     begin
     tb:=false;
     break;
     end;
 B[i]:=tb;
 end;
 writeln(tb);
end.

вот последний вариант переделанный мною уже получше, но тут не указана симметричность (k-я строка массива А симметрична):

program lab62;
uses crt;
VAR A:ARRAY[1..8,1..10] OF INTEGER;
   B:ARRAY[1..8] OF BOOLEAN;
   i,k:integer;
   tb:boolean;
begin
clrscr;
for i:=1 to 8 do
 begin
 tb:=true;
 for k:=1 to 5 do
   if A[i,k]<>A[i,11-k] then
     begin
     tb:=false;
     break;
     end;
 B[i]:=tb;
 end;
 writeln(tb);
end.

[Sazary]

Так а в чем дело? Если я правильно понял задание, то последний вариант работает.
Только вот где у вас заполнение матрицы?
И writeln(tb); нужно запихнуть в цикл.

Вот. Рандомно заполняю матрицу, а затем 5-ю строку делаю симметричной (для проверки).

program lab62;
uses crt;
VAR A:ARRAY[1..8,1..10] OF INTEGER;
   B:ARRAY[1..8] OF BOOLEAN;
   i,k:integer;
   tb:boolean;
begin
clrscr;
randomize;
for i:=1 to 8 do
 begin
 if i=5 then
  begin
  for k:=1 to 5 do
   begin
   a[i,k] := k;
   write(a[i,k]:4);
   end;
  for k:=6 to 10 do
   begin
   a[i,k] := 11-k;
   write(a[i,k]:4);
   end;
  end
  else
 for k:=1 to 10 do
  begin
  a[i,k] := random(10)+1;
  write(a[i,k]:4);
  end;
 writeln;
 end;
writeln;

writeln('B: ');
for i:=1 to 8 do
 begin
 tb:=true;
 for k:=1 to 5 do
   if A[i,k]<>A[i,11-k] then
     begin
     tb:=false;
     break;
     end;
 B[i]:=tb;
 writeln(tb);
 end;

 readln;
end.

[xSPiRiTx]

во, спасибо большое! терь уяснил =)))