pascal

[Anya Lis]

задание создать одномерный массив из элементов стоящих выше побочной диагонали.
выводит с ошибками массив, не те числа

program lab;
uses crt;
var
m,i,j:integer;
a:array[1..4,1..4]of real;
b:array[1..6]of real;
begin
 writeln('vvedite mas');
 for i:=1 to 4 do
 begin
 for j:=1 to 4 do
 read(a[i,j]);
 readln;
 end;
 m:=0;
 for i:=1 to 4 do
 begin
 for j:=1 to 4 do
 begin
 if j+i<4+1 then 
 m:=m+1;
 b[m]:=a[i,j];
 end;
 end;
 for i:=1 to m do
 write(' ',b[i]:4:2);
 readln;
 end.

[Stilet]

program lab;
uses crt;
var
m,i,j:integer;
a:array[1..4,1..4]of real;
b:array[1..6]of real;
begin

 writeln('vvedite mas');
 for i:=1 to 4 do begin
  for j:=1 to 4 do readln(a[i,j]);
 end;

 m:=0;
 for i:=1 to 4 do begin
  for j:=i+1 to 4 do begin
   m:=m+1;
   b[m]:=a[i,j];
  end;
 end;

 for i:=1 to m do write(' ',b[i]:4:2);
 readln;
 end.

Годится?