Pascal repeat until használata alprogramokban?

Sziasztok!

A minap az oldalon sokan segítettetek nekem egy feladat megoldásában, ami elég jól sikerült!

Ugyan ezt a programot kellene kicsit továbbfejleszteni, úgy hogy procedúrákat használjon.

program absz;

uses crt;

var

maganhangzo, massalhangzo, kulonlegeskarakter, szoveg, z : string;

maganhangzos:array[1..14] of byte;

massalhangzos:array[1..21] of byte;

specialiskarakter:array[1..19] of byte;

i,j,k,l : byte;

betu,x : char;

betus : byte;

procedure karakterek;

begin

betus := 0;

for j := 1 to 14 do

maganhangzos[j]:=0;

for k := 1 to 21 do

massalhangzos[k]:=0;

for l := 1 to 19 do

specialiskarakter[l]:=0;

maganhangzo:='áéöőüűúóíaeiou';

massalhangzo:='bcdfghjklmnpqrstvwxyz';

kulonlegeskarakter:=',;?.:-_@#/\+"!%=()*';

end;

procedure beolvasas;

begin

textcolor(12);

write('Irjon be egy szoveget! ');

readln(szoveg);

delay(1400);

Write('Kerem a megszamolando betut : ');

readln(betu);

textcolor(6);

for i := 1 to length(szoveg) do

begin

for l:=1 to 19 do

if (lowercase(szoveg[i])=kulonlegeskarakter[l]) then inc(specialiskarakter[l]);

for j:=1 to 14 do

if (lowercase(szoveg[i])=maganhangzo[j]) then inc(maganhangzos[j]);

for k:=1 to 21 do

if (lowercase(szoveg[i])=massalhangzo[k]) then inc(massalhangzos[k]);

if (lowercase(szoveg[i])=lowercase(betu)) then inc(betus);

end;

WriteLn;

end;

procedure kiir1;

begin

WriteLn('A szovegben a(z) ',betu,' betu ',betus,' alkalommal fordult elo.');

writeln;

end;

procedure kiir2;

begin

textcolor(5);

writeln('Megmutassam a maganhangzokat es massalhangzokat?');

textcolor(6);

repeat

writeln('I/N');

x:=(upcase(readkey));

until(x <> 'I') or (x <> 'N');

if x='I' then begin

writeln('Maganhangzok: ');

for j:=1 to 14 do

if maganhangzos[j]>0 then writeln(maganhangzo[j],' betu: ',maganhangzos[j],' alkalommal fordult elo.');

writeln('Massalhangzok:');

for k:=1 to 21 do

if massalhangzos[k]>0 then writeln(massalhangzo[k],' betu: ',massalhangzos[k],' alkalommal fordult elo.');

end;

end;

procedure kiir3;

begin

textcolor(5);

writeln('Megmutassam a kulonleges karaktereket?');

textcolor(6);

repeat

writeln('I/N');

x:=(upcase(readkey));

until(x <> 'I') or (x <> 'N');

if x='I' then begin

writeln('Kulonleges karakterek: ');

for l:=1 to 19 do

if specialiskarakter[l]>0 then writeln(kulonlegeskarakter[l],' karakter: ',specialiskarakter[l],' alkalommal fordult elo.');

end;

end;

procedure kiir4;

begin

textcolor(5);

writeln('Erdekli hogy hany karaktert gepelt be?');

textcolor(6);

repeat

writeln('I/N');

x:=(upcase(readkey));

until(x <> 'I') or (x <> 'N');

if x='I' then begin

writeln('Ennyi karakter talaltam osszesen: ',length(szoveg));

end;

end;

procedure restart;

begin

repeat

textcolor(5);

writeln('Futtassam meg egyszer a programot?');

textcolor(6);

writeln('Igen/Nem');

readln(z)

until z='nem';

end;

begin

clrscr;

karakterek;

beolvasas;

kiir1;

kiir2;

kiir3;

kiir4;

restart;

readln;

end.

Így néz ki a program most. Jelenleg a 'restart' procedure csak saját magát indítja újra, tudom. Ezt kellene úgy megoldani hogy az egész programot újraindítsa.