В командной строке вводится 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;
эта прога удаляет символы(те которые ты хочешь) из написанной фразы..
например: баран.. ты делаешь удалить все: А.. и выходит брн
но ток непашет

Нет, не так. Процедура написала верно, но только она делает не совсем то, что ты написал. Она регистрозависима. То есть, если ты вторым параметром передашь "а" - то да, получишь "брн". А если "А" - то получишь "баран".

Только непонятно, зачем поставленную задачу делать именно так. Это что же, идти в цикле по всему алфавиту?.. Проще работать с множествами.

var
  Letters,Upper: set of char;
...

  Letters:=['A'..'Z'];
...
  for i:=Length(s) downto 1 do
    if s[i] in Letters then
      Inc(s[i],32)
    else
      if not (UpCase(s[i]) in Letters) then Delete(s,i,1);

Это для английского алфавита, для русского потребуется переделка..
Если не хочется множеств, то можно заменить проверку на пару неравенств.

М

Замечания по оформлению темы: 1. программные коды просьба обрамлять тегами; 2. название темы не соответствует содержанию, просьба исправить.

Процедура мне не нравится, она работает за O(n^2)
Тут это не важно, командная строка не может превысить некоторый предел, но вообще при обработке массивов следует использовать алгоритмы не такие дубовые

j := Low(A);
for i := Low(A) to High(A) do begin
  if NotMustDel(A[i]) then begin
    A[j] := A[i];
    Inc(j);
  end;
end;

Обработанный массив на лету составляется внутри исходного.