Реализовать работу с файлом

[death65]

Помогите реализовать работу с файлом.

program Project1;
 
//В словах с чётным количеством букв удаляет первую букву, в словах
//с нечётным количеством букв, удаляет последнюю и среднюю буквы, если
//в слове больше одной буквы. Если в слове одна буква - такие слова не изменяются.
procedure ProcStr(var aStr : String);
const
  //Множество разделителей слов.
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
var
  i, Pos2, Len, LenW : Integer;
begin
  Len := Length(aStr);
  Pos2 := 0;
  for i := Len downto 1 do begin
    //Если очередной символ является разделителем - пропускаем его.
    if aStr[i] in D then Continue;
    //Отслеживаем конец слова.
    if (i = Len) or (aStr[i + 1] in D) then Pos2 := i;
    //Отслеживаем начало слова.
    if (i = 1) or (aStr[i - 1] in D) then begin
      //Длина слова.
      LenW := Pos2 - i + 1;
      if LenW mod 2 = 0 then begin
        //Имеем чётное кол-во букв - удаляем первую букву.
        Delete(aStr, i, 1);
      end else if LenW > 1 then begin
        //Имеем нечётное кол-во букв, большее 1 - удаляем последнюю
        //и среднюю буквы.
        Delete(aStr, Pos2, 1);
        Delete(aStr, (i + Pos2) div 2 , 1);
      end;
    end;
  end;
end;
 
var
  S : String;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    ProcStr(S);
 
    //Ответ:
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

[Vanta11a]

Раз Вы написали вышеуказанный код, реализовать следующий алгоритм не составит проблемы, я думаю.

1) Открыть файл на чтение
2) Считать из него данные в строковую переменную
3) Строковую переменную передать в функцию.

[death65]

спасибо учту