// zczytywane znaku asci

program Untitled;

uses CRT, DOS;

var
a:char;

begin
a:=readkey;
writeln( Ord (a));;
readln;

end.

// zczytywane znaku asci z petla

program Untitled;

uses CRT, DOS;

var
a:char;

begin
Repeat
a:=readkey;
writeln( Ord (a));;
Until a=Chr(27);


end.


// zczytywanie znaków strzalek asci z petla

program Untitled;

uses CRT, DOS;

var
c1,c2: char;

begin
Repeat
c1:=readkey;
c2:=' ';
if c1=chr(0) then c2:=readkey;
if c2='H' then writeln('Gora');
if c2='P' then writeln('Dol');
if c2='M' then writeln('Prawo');
if c2='K' then writeln('Lewo');
until c1=chr(27);
end.

// tabela z rekordami, wpisywanie danych do tabeli i wyswietlanie ich

program Untitled;

uses CRT,DOS;

var
a,t:string[50];
katalog: array[1..2] of record
autor : string[30];
tytul : string[20];
end;

begin
writeln('Podaj autora');
readln(a);
writeln('Podaj tytul');
readln(t);
katalog[1].autor:=a;
writeln;
writeln;
writeln('autor : ',katalog[1].autor);
katalog[2].tytul:=t;
writeln('tytul: "',katalog[2].tytul,'"');

readkey;
end.