program UsingEnumerations;
uses TerminalUserInput;

type
  Computer = record
        ID: Integer;
        Manufacturer: String;
        Year: Integer;
        Warranty: Integer;
  end;
Computers = array of Computer;



function ReadComputer(var a: array of Computer; i: Integer): Array of Computer;
begin
    result[i].ID := ReadInteger('ID : ');
    result[i].Manufacturer := ReadString('Manufacturer:  ');
    result[i].Year := ReadInteger('Year Purchased :   ');
    result[i].Warranty := ReadInteger('Warranty:  ');
    WriteLn('--------------------------------------------------------------------------------------------');
end;

function ReadAllComputers(var f : array of Computer; count: Integer): Computers;
var i: Integer;
begin
  i:= 0;
  while i <= count do
  begin
  ReadComputer(f,i);
  i := i + 1;
  end;
end;

procedure WriteComputer(var a: array of Computer; number: Integer; i: Integer);
begin
      WriteLn('ID: ', a[i].ID);
      WriteLn('Manufacturer: ', a[i].Manufacturer);
      WriteLn('Year: ', a[i].Year);
      WriteLn('Warranty : ', a[i].Warranty);
      WriteLn('-----------------------');
end;

procedure WriteAllComputers(var f : array of Computer; count: Integer);
var
    i: Integer;
begin
i := 0;
  WriteLn('-----------------------');
  WriteLn('Write All Computers');
  WriteLn('-----------------------');
  while i <= count do
  begin
  WriteComputer(f,i,i);
  i := i + 1;
  end;
end;


procedure Main();
var
    Computers: array [0..19] of Computer;
begin
ReadAllComputers(Computers,2);
WriteAllComputers(Computers,2);
end;

begin
    Main();
end.