Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

s: string;

begin

Str(W, S);

Strg:=S;

end;

procedure KeyBar(w1, w2, w3, w4, w5, w6, w7, w8, w9, w10: string);

var

k1, k2, k3, k4, k5, k6, k7, k8, k9, k10: string;

begin

k1:=' ';

k2:=' ';

k3:=' ';

k4:=' ';

k5:=' ';

k6:=' ';

k7:=' ';

k8:=' ';

k9:=' ';

k10:=' ';

k1:=w1;

k2:=w2;

k3:=w3;

k4:=w4;

k5:=w5;

k6:=w6;

k7:=w7;

k8:=w8;

k9:=w9;

k10:=w10;

k1[0]:=chr(6);