[maxmaslo]

помогите.

Код:

const n=17;
var a:array[1..N] of Char;


i:integer;
begin
for i:=1 to N do

a[i]:=memo1.Lines[i-1][1];

for i:=1 to N do
if a[i] in [0..9] then a[i]:=' ';

for i:=1 to N do

memo2.Lines.add(a[i]);
end;

end.

Админ: Пользуемся тегами для оформления кода.