В командной строке вводится 1 параметр

[Snapper]

В командной строке вводится 1 параметр: из него удаляются
все символы, не являющиеся буквами. БУквы переводятся в строчные.
РЕЗультаты записываются в файл.

вот кусок проги..

program fff;
procedure removalLetter(var Row:String; Letter: Char);
var j: Byte;
begin
j:=1;
while j<=Length(row) Do
if Row[j]=letter Then Delete (Row,j,1) Else j:=j+1
end;

эта прога удаляет символы(те которые ты хочешь) из написанной фразы..
например: баран.. ты делаешь удалить все: А.. и выходит брн
но ток непашет

[Don Karleone]

а у меня все работает норм.

[Serge_Bliznykov]

угу. подтверждаю.
всё работает нормально!

program fff;
procedure removalLetter(var Row:String; Letter: Char);
var j: Byte;
begin
j:=1;
while j<=Length(row) Do
if Row[j]=letter Then Delete (Row,j,1) Else j:=j+1
end;

var s : string;
begin
  if ParamCount < 1 then WriteLn('ERROR!! * No parameter in command line! *')
  else begin
    s := ParamStr(1);
    removalLetter(s , 'а');
    WriteLn(s);
  end;
  Readln;
end.

[Snapper]

я недавно начал заниматься этим делом, так что пока не могу понять как решаются все проблемы, но в цикле: if ParamCount < 1.... поаскаль говорит что неизвестный индетификатор ParamCount... как реить этот вопрос???

[Snapper]

12345678901

[xwicked]

Сообщение от Snapper

я недавно начал заниматься этим делом, так что пока не могу понять как решаются все проблемы, но в цикле: if ParamCount < 1.... поаскаль говорит что неизвестный индетификатор ParamCount... как реить этот вопрос???

Решение простое - FreePascal - понимает всё. Или ищи нормальный TurboPascal. Или Borland Pascal .