Тип запись.

[tara-ta-ta]

Само задание: Программно (на языке Pascal) смоделировать оперативную память в виде записи с именем RAM, которая состоит из следующих полей:
- массив MEMORY из 100 целочисленных элементов, определяющих 100 блоков памяти. Объём каждого блока – случайная величина, значение которой задаётся из диапазона от 64 до 1024 байт.
- массив STATUS из 100 элементов, определяющий для каждого блока занятость (1 – занят, 0 – свободен).
- массив TIME из 100 элементов, в котором хранится время нахождения блока информации в памяти (случайные значения в диапазоне от 1 до 50).
- массив COUNT, определяющий для каждого блока количество обращений к нему (случайные значения в диапазоне от 1 до 10).
Вывести на экран монитора массив оперативной памяти, выделив красным цветом занятые блоки, а зелёным – свободные.

Как сделать все это через record?

Код вроде правильный:

uses CRT;
var 
memory:array[1..100] of integer;
status:array[1..100] of byte;
time:array[1..100] of byte;
count:array[1..100] of byte;
  i:integer;
  begin
    writeln('==========Массив STATUS==========');
    for i:=1 to 100 do begin
      status[i]:=random(2);
      If status[i]=1 then textcolor(red) else textcolor(green);
      write(status[i]:5);
    end;
    writeln;
    textcolor(white);
    writeln('==========Массив MEMORY==========');
    for i:=1 to 100 do begin
      memory[i]:=64+random(961);
      If not (status[i]=0) then textcolor(red) else textcolor(green);
      write(memory[i]:5);
    end;
    writeln;
    textcolor(white);
    writeln('==========Массив TIME==========');
    for i:=1 to 100 do begin
      time[i]:=random(51);
      If status[i]=1 then textcolor(red) else textcolor(green);
      write(time[i]:5);
    end;
    writeln;
    textcolor(white);
     writeln('==========Массив COUNT==========');
    for i:=1 to 100 do begin
     count[i]:=random(11);
     If status[i]=1 then textcolor(red) else textcolor(green);
      write(count[i]:5);
  end;
  end.

[digitalis]

type
MemRec = record
   memory: integer;
   status: byte;
   time: byte;
   count: byte;
end;
..................
var  MyMemRec: array [1..100] of MemRec ;
............................
   MyMemRec[i].memory :=....

Как-то так.

[tara-ta-ta]

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

type
MemRec = record
   memory: integer;
   status: byte;
   time: byte;
   count: byte;
end;
..................
var  MyMemRec: array [1..100] of MemRec ;
............................
   MyMemRec[i].memory :=....

Как-то так.

спс