Курсовая работа: Составить программу обучения работе с клавиатурой

qq='игрушка';

ww='дверь;

ee='плита';

rr='книга';

tt='уроки';

yy='кактус';

uu='дискотека';

ii='кухня';

oo='сосна';

pp='зеркало';

aa='куртка';

ss='173042';

dd='935862';

ff='0.4789';

gg='1,9,53';

hh='с:\юзер';

jj='(2359)' ;

kk='2*7=14';

ll='сколько?';

zz='12+965';

xx='500-25';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); // процедура создания формы

begin

image1.Picture.LoadFromFile ('fonovi.wmf') ; // загружаем картинку

randomize; //вывоз проц. ген. Чисел

k:=1; t:=0; // счетчик слов – сгенерированных и правильно набранных

x:=random (30)+1; //генерируем случ. числа