Подключение текстового файла к программе

[shadekot]

Все доброго времени суток.
Собственно требуется помощь в подключении текстового редактора к програме в паскаль.абс.


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


Предыдущая задача сделана:

Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику конкретного варианта.
Слово симметрично (например, авва)

Вот он код этой прграммы:

Program zad6;
Uses Crt;
Var s,k:string;
    a:array[1..100] of string;
    i,n,j,l:Integer;
    f:boolean;
begin
Writeln('Vvedite stroku razdelyaya slova Probelami');
  Readln(s);
  for i:=1 to length(s) do begin
      if (s[i-1]<>' ') and (s[i]=' ') and (length(k)<>0) then begin
        inc(n);
        a[n]:=k;
        k:='';
      end;
      if s[i]<>' ' then k:=k+s[i];
      if (i=length(s)) and (length(k)<>0) then begin
        inc(n);
        a[n]:=k;
        k:='';
      end;
  end;
  l:=0;
  for i:=1 to n-1 do begin
    f:=false;
    if a[i]<>a[n] then
    if length(a[i]) mod 2 = 0  then begin
      for j:=1 to length(a[i]) div 2 do
      if a[i][j]<>a[i][length(a[i])+1-j] then f:=true;
      if f=False then begin
        l:=l+1;
        if l=1 then Write('Simmetricnie slova: ');
        Write(a[i],' ');
      end;
    end;
  end;
  Writeln;
  if l=0 then Writeln('Vvedite stroku!');
  Write('Nazhmite ENTER');
  Readln;
end.

Что требуется добавить чтобы выполнить задачу?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.