label metka;
var s:string; n,i:integer;
begin
metka: write('Введите параметр: ');
readln(s); n:=length(s);
for i:=1 to n do begin
s[i]:=LowCase(s[i]);
if not (s[i] in ['a'..'z']) and not (s[i] in ['а'..'я']) then begin
delete(s,i,1);
if i<n then i:=i-1;
n:=length(s);
end;
end;
writeln(s); goto metka;
end.
Знаю только то что надо использовать paramstr, но как его правильно оформить??