Помогите пожалуйста

// Снимок экрана работы и сама программа в прибавлении.
// Все три пт выполняются в одной программе.

const
    max = 3;
var
    ar:array[1..max,1..max] of byte;//для проверки = ((22,0,55 ),(0,11,23),(1,2,33) );
    i,j:byte;
    s:string;
   
begin
  writeln('Задание 2.1.');
  for i:=1 to max do begin
    write('Введите ',max,' элемента ',i,'-го ряда: ');
    for j:=1 to max do
      read(ar[i,j]);
  end;

  writeln(); 
  writeln('Задание 2.2.');
  writeln('Введенный массив:');
  for i:=1 to max do begin
    for j:=1 to max do
      write(ar[i,j]:6);
    writeln();
  end;

  writeln(); 
  writeln('Задание 2.3.');
  for j:=1 to max do begin
    s:=' ';
    for i:=1 to max do
      // если 1-ый - то только если элемент gt; 0
      if (ar[i,j]gt;0) and (i=1) or (igt;1) then
        s:=s+ar[i,j];
       
     write(s,'  ');
  end;
end.