Строки в паскале!

[vlad1991]

Помогите найти ошибку пожалуйста!!!Задача не такая уж и сложная, но не как не найти=(

такая задача:
Дана строка, где слова разделяются пробелом .Подсчитать сколько слов начинаються и заканчиваются на одну и ту же букву.

program lab8;
var
S:string[16];
function ZL(S:string):integer;
var
f:boolean;
a:char;
i,k:integer;
begin
k:=0;
f:=false;
for i:=1 to length(S) do
if (not f) and (S[i]<>' ') then
begin
f:=true;
a:=S[i];
end;
if f and (S[i]=' ') then
if S[i-1]=a then
begin
f:=false;
k:=k+1;
end;
ZL:=k;
end;
begin
writeln('vvedite stroku');
readln(S);
writeln('k=',ZL(S));
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,t:integer;
    a:array[1..100] of string;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
t:=0;
for i:=1 to n do
 if  a[i][1]=a[i][length(a[i])] then inc(t);
writeln(t);
end.

[Зоя93]

Помогите пожалуйста) Нужно написать программу, которая сравнивает строки, но без функций и процедур)

[Ghost of Night]

Сообщение от Зоя93

Помогите пожалуйста) Нужно написать программу, которая сравнивает строки, но без функций и процедур)

var
 s,s1:string;
begin
 if s=s1 then writeln('строки равны')
 else writeln('строки не равны');
end;