Паскаль помочь исправить блок-схему код имеется

[Renty]

Помогите исправить блок схему чтот не пойму никак
Код программы

program proga;
uses crt;
var
i, j, buf:integer;
A :Array [1..5, 1..3] of integer;


begin
clrscr;

for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 begin
  write('A[',i,',',j,']=');
 readln(A[i,j]);
 end;
 end;

 clrscr;

 for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 begin
  write(A[i,j]:3);
 end;
 writeln;
 end;

 for i:=1 to 5 do
 begin
 buf:=A[1,i];
 A[1,i]:=A[5,i];
 A[5,i]:=buf;
 end;

 writeln;

  for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 begin
  write(A[i,j]:3);
 end;
 writeln;
 end;

  writeln;

  for i:=1 to 5 do
 begin
 buf:=1;
 for j:=1 to 3 do
 begin
 buf:=buf+(1-A[i,j]+A[i,j]*A[i,j]) div 6;
 end;
 buf:=buf+5;
 writeln('Sum#',i,' = ',buf);
 end;

 writeln;

 buf:=A[1,1];
 for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 begin
 if buf < A[i,j]
  then buf:=A[i,j];
 end;
 end;

 writeln('Max: ',buf);

readln;
end.

прикрепил то что получилось пожалуйста исправьте как нужно

[k0tone]

Держите:
Untitled5.jpg