Записи

[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:integer;
 max: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 writeln('net ravnih');
max:=a[1];
for i:=2 to n do
if a[i].ch/a[i].zn>max.ch/max.zn then max:=a[i];
writeln('max = ',max.ch,'/',max.zn);
readln
end.

Всегда выводит равные. Как исправить?

[eoln]

Что-то циклы странные (или мне так кажется)

var b:boolean;
...
b:=false;
for i:=1 to n-1 do if not b then begin
  for j:=i+1 to n do
    if(a[i].ch*a[j].zn=a[i].zn*a[j].ch) then begin
      b:=true;
      break
    end;
  end else break;
if b then writeln('est ravnie')
else writeln('net ravnih');