Работа по записи.Описать комбинированный тип

uses crt;
type 
    komp=record
        model_mp: string [20];
        chastota_proc: real;
        obem_op_pam: real;
        obem_vin4est: integer;
        nali4ie_kartridera: boolean;
        model_manitora: string[10];
        nali4ie_op_susm: boolean;
      end;

const
    N = 3;
type
    TComputer = record
        motherboard, display: String[20]; //мать и монитор
        clockrate, ram, hard: Word; //частота в MHz, ram в MB, винт в GB
        os, cardreader: Boolean;
    end;
var
    ar: Array[1..N] Of TComputer;
    i: 1..N;
    targetRam: Word;
    c: Char;
begin
    WriteLn('Ввод данных:');
    for i := 1 to N do
        with ar[i] do
        begin
            Write('Модель МП? '); ReadLn(motherboard);
            Write('Частота просессора (в MHz)? '); ReadLn(clockrate);
            Write('Объём RAM (в MB)? '); ReadLn(ram);
            Write('Объём жёсткого диска (в GB)? '); ReadLn(hard);
            Write('Модель монитора? '); ReadLn(display);
            repeat
                Write('Установлена ли ОС (y - да | n - нет)? ');
                ReadLn(c);
            until (c in ['y', 'n', 'Y', 'N']);
            os := (c in ['y', 'Y']);
            repeat
                Write('Имеется ли картридер (y - да | n - нет)? ');
                ReadLn(c);
            until (c in ['y', 'n', 'Y', 'N']);
            cardreader := (c in ['y', 'Y']);
            WriteLn('=======================================================');
        end;
    WriteLn;
    Write('Введите максимальный объём RAM (в MB): '); ReadLn(targetRam);
    WriteLn('Модели МП, объем RAM которых меньше ', targetRam, ':');
    for i := 1 to N do
        with ar[i] do
            if (ram < targetRam)
            then
                WriteLn(motherboard);
    WriteLn;
    WriteLn('Модели мониторов компьютеров, в которых имеется картридер:');
    for i := 1 to N do
        with ar[i] do
            if (cardreader)
            then
                WriteLn(display);
end.