Линейные списки

[mishanya6]

ЗАДАНИЕ:
Дан текстовый файл Inlet.in, хранящий элементы Л1-списка символьного типа. Подсчитать число таких слов, образованных значениями элементов рассматриваемого Л1-списка, которые начинаются и заканчиваются одинаковыми символами.
Определение : Группа элементов Л1-списка не содержащая символ пробел внутри себя называется СЛОВОМ.
Результат вывести в текстовый файл Outlet.out.
Спецификация ввода : Текст из символов алфавита
Спецификация вывода : Количество искомых слов.

Вот что у меня есть, нужно ток переделать, чет не получаетсяprogram ATD;
{$APPTYPE CONSOLE}
uses
SysUtils,
L1U;

type
inf=record
text:string[100];
proc:real;
end;
const
n=6 ;
Var
a: array [1..n] of real;
f: text;
s: string ;
y,we:string;
i,x,p,z,j: integer;
min,per:real;
L:L1;
Elem : Variant;
b:array [1..n] of inf;
be:inf;
begin
assignfile (f,'Inlet.in');
reset (f);
Readln (f,S);
close (f);
L:=L1.Create('ATD');
L.Empty;
While length(S)>0 do
begin
x:= pos ('.',S);
y:=copy (S,1,x-1);
Delete (S,1,x);
Elem:=y;
L.GoToL;
L.PutBf(Elem);
end;
L.Show;
writeln;
writeln;
p:=1;
While not (L.IsEmpty) do
begin
i:=0;
l.GoToF;
l.GetBh(elem);
y:=elem;
we:=y;
writeln (y);
repeat
begin
x:=pos(' ',y);
i:=i+1;
delete (y,x,1);
end
until x=0;
if i=1 then i:=0
else i:=i-1;
writeln ('kovichestvo probelov = ', i);
z:=length (we);
writeln ('dlina= ', z);
if i=0 then A[p]:= -1 else
A[p]:=i/z;
writeln ('procent = ', a[p]*100:2:2,'%');
writeln ;
b[p].text:=we;
b[p].proc:=a[p];
p:=p+1;
l.DelBf;
end;
for j:=1 to n-1 do
for p:=1 to n-1 do
if (b[p].proc >= B[p+1].proc) then
begin
be := b[p];
B[p]:= B[p+1];
B[p+1]:= be;
end;
assignfile (f,'Outlet.out');
rewrite (f);
write (f,b[1].text);
close(f);
l.Destroy;
readln;

{ TODO -oUser -cConsole Main : Insert code here }
end.