unit maturita2011;

interface

const
tab:array['A'..'Z']  of string[4] = (
'.-','-...','-.-.','-..','.','..-.','--.','....',
'..','.---','-.-','.-..','--','-.','---','.--.','--.-',
'.-.','...','-','..-','...-','.--','-..-','-.--','--..');

type
	clovek = record
	  prijmeni,jmeno:string;
	  trida:string[4];
	end;

	lidi = array[1..30] of clovek;

implementation
end.