Найти самое длинное слово и определить, сколько раз оно встретилось в тексте

uses vcl; {имена подключаемых модулей}
 
//$VCLDESIGN+
var    { секция объявления переменных }
  Form1: Form;
  TextLabel1: TextLabel;
  TextLabel2: TextLabel;
  TextLabel3: TextLabel;
  TextLabel4: TextLabel;
  TextLabel5: TextLabel;
  Button1: Button;
  TextBox1: TextBox;
  TextBox2: TextBox;
  TextBox3: TextBox;
  SpinEdit1: SpinEdit;
   t: text;
   s, a,b: string;
   n, i, z, x: integer;
 
procedure result;
begin       {начало тела подпрограммы}
n:=0;
x:=0;
z:=0;
assign(t, 'C:\text.txt'); { связываем файловую переменную t с файлом 'text.txt' и открываем этот файл для чтения}
reset(t);{открываем файл для чтения}
while not eof (t) do {цикл до окончания файла} 
begin
readln (t, s);{читаем текст построчно}
for i:=1 to length(s) do {ищем самое длинное слово}
begin
if s[i]<>' ' then
begin
n:=n+1;
if (n>x) then
x:=n;
end
else n:=0;
end;
end;
textbox1.caption:=s; { выводим полученный результат в виде переменой s в textbox1}
close(t);
a:=IntToStr(x);
textbox2.caption:=a;
reset(t);
while not eof (t) do {цикл до окончания файла}
begin
readln (t, s);{читаем текст построчно}
for i:=1 to length(s) do
begin
if s[i]<>' ' then  {ищем сколько раз повторилось}
begin
n:=n+1;
if (n=x) then
z:=z+1;   
end
else n:=0;
end;
end;
close (t); {закрываем файл}
b:=IntToStr(z);
textbox3.caption:=b;
end;            {конец тела подпрограммы}
 
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,519,331);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Курсовая работа',''); {название окна формы}
  TextLabel1:= TextLabel.Create(Form1,32,24,148,13);
  TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'Исходные данные из файла: ','');{заголовок текстбокса1}
  TextLabel2:= TextLabel.Create(Form1,16,176,172,13);
  TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Самое длинное слово состоит из ','');{заголовок текстбокса2}
  TextLabel3:= TextLabel.Create(Form1,240,176,26,13);
  TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'букв.','');
  TextLabel4:= TextLabel.Create(Form1,16,232,226,13);
  TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'Самое длинное слово встречается в тексте ','');
  TextLabel5:= TextLabel.Create(Form1,296,232,21,13);
  TextLabel5.InitControl(True,True,alNone,crDefault,clBtnFace,'раз.','');
  Button1:= Button.Create(Form1,328,88,121,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Получить результат','');{ кнопка}
  TextBox1:= TextBox.Create(Form1,40,48,185,89);
  TextBox1.InitControl(True,True,alNone,crDefault,clWindow,'','');
  TextBox1.ScrollBars:= ssNone;{текстбокс1}
  TextBox2:= TextBox.Create(Form1,192,168,41,25);{текстбокс2}
  TextBox2.InitControl(True,True,alNone,crDefault,clWindow,'','');
  TextBox2.ScrollBars:= ssNone;
  TextBox3:= TextBox.Create(Form1,248,224,41,25);{текстбокс3}
  TextBox3.InitControl(True,True,alNone,crDefault,clWindow,'','');
  TextBox3.ScrollBars:= ssNone;
  Button1.OnClick:=result;  { действие при нажатии кнопки }
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
 
begin
  InitControls;
 
end.       {конец тела подпрограммы}