КОМандная строка в ПАскаль Опции

[snapper]

Как сделать так чтобы работало не в подпрограмме Программы паскаль, а через командную строку??? помогите пожалуйста

Код

uses crt;
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, но как его правильно оформить??

[snapper]

Код

uses crt;
label metka;
var s:string; n,i:integer;
begin
metka:  write('Введите параметр: ');
  readln(s);
  n:=length(s);
  for i:=n downto 1 do
  s[i]:=LowCase(s[i]);
   if not (s[i] in ['a'..'z']) and not (s[i] in ['а'..'я']) then delete(s,i,1);
                                                                              i:=i+n;
    writeln(s);  goto metka;
end.

исправил VOLVO, но теперь как сделать так чтоб удалял символы не являющимися буквами??? удаляет тока первый символ(не букву) и то если писать его первым...
прошу помоги..


Сообщение отредактировано: snapper - 18.12.2010 0:49