Реферат: Создание текстового редактора

for u:=1 to 3 do

begin

for i:=1 to 7 do

begin

sound(e[i]);

delay(r[i]);

nosound;

end;

end;

for z:=1 to 3 do

begin

for i:=1 to 5 do

begin

sound(w[i]);

delay(q[i]);

nosound;

end;

end;

for i:=1 to 9 do

begin

sound(o[i]);

delay(b[i]);

nosound;

end;

end;

Procedure table; {рисует таблицу}

var

w,h:integer;

c1,c2,c3,c4,c7,c5,c6,c8,c9,c10:char;