Проверьте решения задач

Program zadanie7;
Uses CRT;
Var a: Array[1..23, 1..17] of Real; 
     i,j: Byte; 
Begin 
ClrScr; 
For i := 1 to 23 do 
      Begin 
      For j := 1 to 17 do 
           Begin 
           a[i,j] := 1/(i+j); 
           Write(a[i,j]:0:1, ' ');
           {если нужно более точная матрица, то поменять 1 на 4}
           End; 
      Writeln; 
      End; 
Readln;
End.

program zadanie9;
var i, j, N, max, min : integer;
    H : array[1..100, 1..100] of integer;
begin
  write('Enter N: ');
  readln(N);
  for i := 1 to N do
    for j := 1 to N do {ввод массива}
      begin
        write('H(', i,', ', j, ') = ');
        readln(H[i, j]);
      end;
  max := H[1, 1]; {изначально предполагаем что максимальный элемент - H[1, 1]}
  min := H[1, N]; {аналогично максимальный эемент - H[1, N]}
  for i := 1 to N do {увеличивая индекс одновремено по главной и второстепеной диагонали}
    begin
      if H[i, i] > max then max := H[i, i]; {если находим большее значение, то переопределяем старое}
      if H[i, N - i + 1] < min then min := H[i, N - i + 1]; {если находим меньшее значение, то переопределяем старое}
    end;
  write('Maximum - ', max, ', minimum - ', min);
  readln;
end.

program zada4a10;
var i, j, N : integer;
    H : array[1..100, 1..100] of integer;
begin
  write('Enter N: ');
  readln(N);
  for i := 1 to N do
    for j := 1 to N do   {ввод массива}
      begin
        write('H(', i,', ', j, ') = ');
        readln(H[i, j]);
      end;
  for i := 1 to N do write(H[i, i], ' ');
  readln;
end.

program zadanie9;
uses crt;
var i,j,N,max,min:integer;
    H:array[1..100,1..100] of integer;
begin
  clrscr;
  write('Enter N: ');
  readln(N);
  for i := 1 to N do
    for j := 1 to N do
      begin
        write('H[',i,',',j,']=');
        readln(H[i,j]);
      end;
clrscr;
writeln('Ishodnaja matrica:');
max := H[1, 1];min := H[1, N];
for i := 1 to N do
   begin
    for j := 1 to N do
      begin
        write(H[i,j]:4);
        if (i=j) and(H[i,j]>max) then max:=H[i,j];
        if (j=n-i+1) and(h[i,j]<min) then min:=H[i,j];
      end;
    writeln;
   end;
write('Maximum - ', max, ', minimum - ', min);
readln
end.

program zada4a10;
uses crt;
var i,j,N:integer;
    H:array[1..100,1..100] of integer;
begin
  clrscr; 
  write('Enter N: ');
  readln(N);
  for i := 1 to N do
    for j := 1 to N do
      begin
        write('H[',i,', ',j,']=');
        readln(H[i,j]);
      end;
clrscr;
writeln('Ishodnaja matrica:');
for i := 1 to N do
   begin
     for j := 1 to N do
     write(H[i,j]:4);
     writeln;
   end;
writeln('Glavnaja diagonal:');
for i:=1 to N do write(H[i,i],' ');
readln
end.

Program primer5;
Uses  crt;
Const n=5;
Var   a: array [1..n] of integer;
      k,i,x: integer;
begin
k:=0;
 
for i:=1 to n do
begin
a[i]:=random(100);
writeln (a[i]:0);
readln;
  if (frac(a[i]/3)=0) and (frac(a[i]/5)<>0) then
  k:=k+1;
end;
 
writeln ('Количество= ',k:0);
readln;
clrscr;
end.