Работа с файлами Опции

[@^WARlock^@]

Помогите решить.

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

[klem4]

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

Чувствуется это надогло

Если в исходном файле на одной строке одно слово, то вот :

function CopyOnValue(var _in, _out : Text; value : char) : integer;
var
  s : string;
  count : integer;
begin
  count := 0;
  while (not(EOF(_in))) do begin
    readln(_in, s);
    if s[1] = value then begin
      writeln(_out, s);
      inc(count);
    end;
  end;
  CopyOnValue := count;
end;

_in и _out должны быть открыты для чтения и записи сооветственно.