Obarvený kód souboru adresar3.pas

type
    slozka = array[0..5] of record
     jmeno, prijmeni, ulice : string;
     cp                     : word;
     psc                    : string[5];
    end;
var adresar : ^slozka;
    txt     : string;
    a,b     : byte;

    procedure pis(x,y:byte; txt:string);
begin
 gotoxy(x,y);
 writeln(txt);
end;

function cti_string(x,y:byte):string;
begin
 gotoxy(x,y);
 readln(txt);
 cti_string:=txt;
end;

begin
clrscr;
new(adresar);
for a:=0 to 4 do
begin
 clrscr();
 pis(1 ,1 ,'Jmeno   :');
 pis(1 ,2 ,'Primeni :');
 pis(1 ,3 ,'Ulice   :');
 pis(1 ,4 ,'C.P.    :');
 pis(1 ,5 ,'PSC     :');
 adresar^[a].jmeno:=cti_string(11,1);
 adresar^[a].prijmeni:=cti_string(11,2);
 adresar^[a].ulice:=cti_string(11,3);
  gotoxy(11,4);
   readln(adresar^[a].cp);
  gotoxy(11,5);
   readln(adresar^[a].psc);
end;

for a:=0 to 4 do
begin
 pis(1 ,1 ,'Jmeno   : '+adresar^[a].jmeno);
 pis(1 ,2 ,'Primeni : '+adresar^[a].prijmeni);
 pis(1 ,3 ,'Ulice   : '+adresar^[a].ulice);
 str(adresar^[a].cp,txt);
 pis(1 ,4 ,'C.P.    : '+txt);
 pis(1 ,5 ,'PSC     : '+adresar^[a].psc);
 readln;
end;

end.

created by PaJa