Подскажите в чём ошибка!

[Irat]

Program slova;
var k,z,p,gl,sog:integer;
f:Text;
Stroka,B,Put:String;
begin
p:=0;
k:=0;
Repeat
if k>0 then Writeln('Vvidite 1 ili 2');
Writeln('Prochitat iz fayla(1) ili vvizti v ruchnuyu(2)');
readln(z);
k:=k+1;
Until (z=1) or (z=2);
If z=1 then
begin
Writeln('Vvedite put k faylu v formate D:\..\...txt');
Readln(Put);
Assign(f,Put);
Reset(f);
Readln(f,Stroka);
Close(f);
end;
If z=2 then
begin
Writeln('Vvedite stroku');
Readln(Stroka);
end;
gl:=0;
sog:=0;
While p<=length(Stroka) do
begin
p:=Pos(' ',Stroka);
B:=Copy(Stroka,p-1,1);
If (B='a') or (B='A') or (B='e') or (B='E') or (B='i') or (B='I') or (B='o') or (B='O') or (B='u') or
(B='U') or (B='y') or (B='Y') then gl:=gl+1
else sog:=sog+1;
Delete(Stroka,1,p);
end;
Writeln('Glasnih =',gl,' Soglasnih =',sog);
end.

После первого if программа останавливается.
Всем ответившим спасибо!

[Stilet]

После первого if программа останавливается.

А у меня нет, что я делаю не так?
что значит останавливается?

[Irat]

Программа полностью работает?
Даже после нажатья после первого запроса 1?

[Stilet]

Программа работает чертикак но на усливии не падает.