Паскаль...Записи

[Miledi]

Помогите ршить 2 задачки, заранее всем благодрна...
1. Рациональное число представлено в виде записи с двумя по-лями ......
числитель : integer;
знаменатель: integer;
.........
Задано n рациональных чисел. Найти среди них максимальное.
2. В сыскной службе зафиксированы все автомобили и их владельцы. Автомобиль характеризуется маркой, цветом, номером, годом выпуска, фамилией владельца. Вывести на экран все марки и фамилии владельцев автомобилей красного цвета.

[puporev]

Не любит народ решать задачи на записи, хотя они самые легкие, писанины правда много.
Задача №1.

uses crt;
type drob=record     //запись
          ch:integer;
          zn:1..32767;//для знаменателя другие типы плохи тем,
          end;            //что в них есть не нужный нам ноль
var Rchis:array[1..100]of drob;  //массив записей
    n,i,imax:integer;max:real;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
    begin
      writeln('Zapis ',i);          //заполняем массив
      write('Chislitel:');readln(Rchis[i].ch);
      write('Znamenatel:');readln(Rchis[i].zn);
    end;
max:=Rchis[1].ch/Rchis[1].zn;imax:=1;//ищем максимальный
for i:=1 to n do
if Rchis[i].ch/Rchis[i].zn>max then
    begin
       max:=Rchis[i].ch/Rchis[i].zn;  //находим его и его номер
       imax:=i;
    end;
writeln;           //выводим в виде дроби на экран
writeln('Maximalnoe chislo=',Rchis[imax].ch,'/',Rchis[imax].zn);
readln;
end.

Задача №2. //здесь даже объяснять нечего

uses crt;
type avto=record
          mr:string[20];
          cl:string[20];
          nom:string[20];
          god:word;
          fam:string[20];
          end;
var sp:array[1..20]of avto;
    n,i:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
    begin
      writeln('Zapis ',i);
      write('Marka:');readln(sp[i].mr);
      write('Color:');readln(sp[i].cl);
      write('Nomer:');readln(sp[i].nom);
      write('God:');readln(sp[i].god);
      write('Familia:');readln(sp[i].fam);
    end;
writeln;
writeln('Avto krasnogo cveta:');
for i:=1 to n do
if sp[i].cl='red' then
    begin
      writeln(sp[i].mr,'  ',sp[i].fam);
    end;
readln;
end.