вопросы по операторам и задачи в паскале

Program Zadacha;
uses crt;
var
 a:array[1..8,1..8] of integer;
 min,m,i,j:integer;
 
begin
 clrscr;
 randomize;
 for i:=1 to 8 do begin
  for j:=1 to 8 do begin
    a[i,j]:=random(70)-10;
    write(a[i,j]:4);
  end;
  writeln
 end;
 min:=a[1,1];
 m:=1;
 for i:=1 to 8 do begin
  if a[i,i]<min then begin min:=a[i,i]; m:=i; end;
 end;
 writeln;
 for i:=1 to 8 do begin write(a[m,i]:4); end;
 readkey;
end.

Program Zadacha;
uses crt;
const n=8;
var
 ms:array[1..n] of integer;
 a:array[1..n,1..n] of integer;
 min,m,i,j:integer;
 
begin
 clrscr;
 randomize;
 writeln('Matrica:');
 for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(70)-10;
         write(a[i,j]:4);
       end;
     writeln
    end;
 min:=a[1,1];
 m:=1;
 for i:=1 to n do
 if a[i,i]<min then
    begin
      min:=a[i,i];
      m:=i;
    end;
 writeln;
 writeln('Min el gl giag=',min,'  v stroke ',m);
 writeln;
 writeln('Massiv:');
 for i:=1 to n do
   begin
    ms[i]:=a[m,i];
    write(ms[i],' ');
   end;
readkey
end.

uses crt;
var x,y:integer;
begin
clrscr;
x:=-10;y:=10;
repeat
x:=x+2;
y:=y-1;
until(x>0)and(y<0);
writeln('1.  x=',x,'  y=',y);
x:=-10;y:=10;
while (x<=0)or(y>=0) do
  begin
   x:=x+2;
   y:=y-1;
  end;
writeln('2.  x=',x,'  y=',y);
readln
end.

uses crt;
var I,J,P,S:integer;
begin 
clrscr;
I:=2;
J:=23;
S:=20;
P:=1;
while (J-I)>=4 do 
   Begin 
     P:=P+(J-I) mod 4;
     write('P=',P);
     If (I*J) mod 3=3 then I:=I+3 else J:=J-4;
     I:=I+1;
       J:=J-2;
     writeln('   I=',I,'  J=',J);
   end;
writeln('Pkon=',P);
readln;
end.

uses crt;
var a,d:array[1..20] of integer;
    i,k:byte;
    sr:real;{среднее}
begin
clrscr;
sr:=0;
for i:=1 to 20 do
  begin
    write('a[',i,']=');
    readln(a[i]);
    sr:=sr+a[i]/20;{считаем среднее}
  end;
clrscr;
writeln('Ishodnyj massiv:');
for i:=1 to 20 do
write(a[i],' ');
writeln;
k:=0;
for i:=1 to 20 do
if a[i]>sr then{если больше среднего}
  begin
   k:=k+1;{считаем}
   d[k]:=a[i];{заносим в массив}
  end;
writeln('Poluchennyj massiv:');
for i:=1 to k do
write(d[i],' ');
readln
end.

program tttt;
uses crt;
var m,d:array[1..20]of integer;
     sr:real;
     i,k:integer;
begin
 clrscr;
 sr:=0;
 writeln('Введите массив: ');
 for i:=1 to 20 do read(m[i]);
 for i:=1 to 20 do sr:=sr+m[i];
 sr:=sr/20;
 k:=1;
 for i:=1 to 20 do
 if m[i]>sr then
 begin
  d[k]:=m[i];
  inc(k);
 end;
 
 for i:=1 to k-1 do write(k[i],' ');
 readln;
end.