Нужна помощь в написании программы.

[GhosT3Ds]

Добрый день. В языке Паскаль не шарю совсем. Требуется написать такую программу и блок схему к ней:
Дана матрица 7х7. В каждой четной строке найти максимальный элемент и образовать из них одномерный массив.
Очень надеюсь на вашу помощь.

[kommunist]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n = 7;
type matrica = array[1..n,1..n] of integer;
     vector  = array[1..4] of integer;
var
   a:matrica;
   b:vector;
   max:integer;
   i:integer;
   j:integer;
begin
  randomize;
  for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   a[i,j] := random(10);
   write(a[i,j],' ');
end;
    writeln;
end;
    writeln;
    max := 0;
    for i := 1 to n do
begin
for j:= 1 to n do
begin
    if i div 2 = 0
    then
    if max < a[i,j]
    then
    max := a[i,j];
end;

end;
writeln;
  for i:= 1 to 3 do
begin
   b[i] := max;
   write(b[i],' ');
end;
   readln;
end.