[icWasya]

1)
Создаём новае приложение Дельфи.

2)
На форму кладём
Edit1,Button1,Memo1
3)
Переключиться из формы на редактирование юнита
Menu->View->Togle Form/Unit [F12]

4)
Весь код со строк 2-33 копируем сразу после Implementation

5)
Прокручиваем вверх
после строки с текстом private
пишем

Код:

procedure Work;

и жмём Ctrl+Shift+C
среда перейдёт к редактированию процедуры Work;
строки 33-65 делаем телом этой функции
объявления k,nm,lb - выносим из функции:
var
k: array [1..39] of integer;
nm,lb: string;


6) некоторые типы и функции в дельфи называбются по-другому,
поэтому

в строке 33
f:TextFile;

в строке 40
AssignFile(f, Text1.Text);
в строке 65
CloseFile(f);

7)
Прокручиваем вверх
после строки с текстом private
пишем

Код:

procedure ShowResult;

и жмём Ctrl+Shift+C
среда перейдёт к редактированию процедуры ShowResult;

Код:

procedure TForm1.ShowResult;
var
  i,j:integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Ключевые слова:');
  j:=0;
  for i:=1 to 39 do
    if k[i]<>0 then
       begin
       inc(j);
       Memo1.Lines.Add(ks[i]+'- '+IntToStr(k[i]));
       end;

  Memo1.Lines.Add('Перечень простых переменных: '+nm);
  Memo1.Lines.Add('Перечень меток в алфавитном порядке: '+lb);

end;

8)
Переключаемся на Форму [F12]
Дважды кликаем на Button1
Редактируем:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Work;
  ShowResult;
end;

После запуска в Edit1 пишем имя файла
Жмём на кнопку