Записи. Программа готово нужно подредактировать

[Camelot_2012]

Приняв способ изображения рационального числа в виде записи с двумя полями: числ, знам : integer, написать программу, позволяющую, во-первых, определить, есть ли среди 3 рациональных чисел равные и, во-вторых, вычислить наибольшее из данных рациональных чисел.

Program zapisi;
uses crt;
const n=3;
type
      Q=record
      ch:integer;
      zn:integer;
      end;
var
 a:array[1..n] of Q;
 i,j,k,max:integer;
 f:boolean;
 mx:Q;
begin  ClrScr;
for i:=1 to n do
 begin
  writeln('drob',i);
  write('ch=');
  readln(a[i].ch);
  repeat
  write('zn=');
  readln(a[i].zn);
  until a[i].zn>0;
 end;
clrscr;
writeln('Vvedennie drobi:');
for i:=1 to n do
write(a[i].ch,'/',a[i].zn,'   ');
writeln;
f:=false;
i:=1;
while(i<n)and not f do
 begin
  j:=i+1;
  while(j<=n) and not f do
  if(a[i].ch*a[j].zn=a[i].zn*a[j].ch) then f:=true
  else j:=j+1;
  if not f then i:=i+1;
 end;
if f then writeln('est ravnie')
else write('net ravnih');
mx:=a[1];
for i:=2 to n do
if a[i].ch/a[i].zn>mx.ch/mx.zn then mx:=a[i];
writeln('max = ',mx.ch,'/',mx.zn);
readln
end.

Помогите пожалуйста, написать без Булеевского типа.

[Stilet]

Примерно так:

while((i+j)<n) do
 begin
  j:=i+1;
  while((i+j)<=n) do
   if(a[i].ch*a[j].zn=a[i].zn*a[j].ch) then i:=i+1
   else j:=j+1;
 end;
if i>0 then writeln('est ravnie')

P.S. не проверял.

[Camelot_2012]

Сообщение от Stilet

Примерно так:

while((i+j)<n) do
 begin
  j:=i+1;
  while((i+j)<=n) do
   if(a[i].ch*a[j].zn=a[i].zn*a[j].ch) then i:=i+1
   else j:=j+1;
 end;
if i>0 then writeln('est ravnie')

P.S. не проверял.

А можешь полностью написать программу с заменой? пожалуйста!

[Camelot_2012]

У меня как-то так получилось!

Program zapisi;
uses crt;
const n=3;
type
      Q=record
      ch:integer;
      zn:integer;
      end;
var
 a:array[1..n] of Q;
 i,j,k,max:integer;
 mx:Q;
begin  ClrScr;
for i:=1 to n do
 begin
  writeln('drob',i);
  write('ch=');
  readln(a[i].ch);
  repeat
  write('zn=');
  readln(a[i].zn);
  until a[i].zn>0;
 end;
clrscr;
writeln('Vvedennie drobi:');
for i:=1 to n do
write(a[i].ch,'/',a[i].zn,'   ');
writeln;
i:=1;
while((i+j)<n) do
 begin
  j:=i+1;
  while((i+j)<=n) do
   if(a[i].ch*a[j].zn=a[i].zn*a[j].ch) then i:=i+1
   else j:=j+1;
 end;
if i>0 then writeln('est ravnie')
else write('net ravnih');
mx:=a[1];
for i:=2 to n do
if a[i].ch/a[i].zn>mx.ch/mx.zn then mx:=a[i];
writeln('max = ',mx.ch,'/',mx.zn);
readln
end.

[Stilet]

Результ правильный дало?