Zadanie

program people;

type
  person = record
    first_name: String[15];
    last_name: String[25];
  end;

var
  data: Array [0..4] of person;
  name: Text;
  a,b: Integer;

begin
  //First names
  data[0].first_name := 'Janusz';
  data[1].first_name := 'Grazyna';
  data[2].first_name := 'Sebastian';
  data[3].first_name := 'Joanna';
  data[4].first_name := 'Denis';

  //Last names
  data[0].last_name := 'Nowak';
  data[1].last_name := 'Kowal';
  data[2].last_name := 'Burak';
  data[3].last_name := 'Cebula';
  data[4].last_name := 'Cygan';

  //First names file
  Assign(name, 'imiona.txt');
  Rewrite(name);
  Write(name, data[0].first_name, data[1].first_name, data[2].first_name);
  Close(name);

  //Last names file
  Assign(name, 'nazwiska.txt');
  Rewrite(name);
  Write(name, data[0].last_name, data[1].last_name, data[2].last_name);
  Close(name);

  //Write a person
  Reset(name);
  randomize;
  a:=Random(5);
  b:=Random(5);
  writeLn('First name: ', data[a].first_name);
  writeLn('Last name: ',data[b].last_name);
  readLn();
end.