ниже в табличной форме представлен фрагмент базы данных с результатами олимпиады по информатике сколько записей в данном фрагменте удовлетворяет следующему условию​

Var 
  r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real;
begin
  read(x1,y1,x2,y2,x3,y3,x4,y4);
  if x1>x2 then r1:=(x1-x2)*(x1-x2)
  else r1:=(x2-x1)*(x2-x1);
  if y1>y2 then r1+=(y1-y2)*(y1-y2)
  else r1+=(y2-y1)*(y2-y1);
  if x3>x4 then r2:=(x3-x4)*(x3-x4)
  else r2:=(x4-x3)*(x4-x3);
  if y3>y4 then r2+=(y3-y4)*(y3-y4)
  else r2+=(y4-y3)*(y4-y3);
  if r1>r2 then writeln('Первый длинней второго') 
  else
    if r1=r2 then writeln('Они равны') 
    else
    writeln('Второй длинней первого');
end.

Const n=20;
var a: array[1..n] of integer; 
  i, max, imax, min, imin : integer;
begin
Randomize; 
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(101)-50; 
  write(a[i],' ');
 end;
 writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
 begin
 if a[i] > max then begin max:=a[i]; imax:=i; end;
 if a[i] < min then begin min:=a[i]; imin:=i; end;
 end;
writeln('max=',max,'  min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' ');  writeln;
end.

Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0 
max=48  min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0