Program ZaznamyOsoby;

type TypZaznam = record
         Jmeno : String[25];
           Vek : integer;
          Plat : real;
 MaVlastniAuto : boolean;
     end;

var osoba : TypZaznam;

begin
  osoba.Jmeno:='Karel';
  osoba.Vek:=31;
  writeln(osoba.Jmeno, ' m ', osoba.Vek, ' let.');
  readln;
end.