PASCAL funkcia, prosim pomoztie mi

Ahoj, mam taky problemcek, ze z daneho programu potrebujem odstranit tabulku, aby vyslodok zapisalo iba klasicky a neviem s tym rady a taktiez pri UNTIL mi vypisuje ze je chyba, no ja tam ziadnu nevidim.Prosim vas poradte mi niekto , uz som vazne bezradna s tym.

zadanie je:
Zostavte program pre výpočet hodnôt funkcie z = 3+x+1/(y–4). Výpočet sa ukončí zadaním y=4.

KOD:

program funkcia;
uses crt;
var x:array[1..100] of real;
y:array[1..100] of real;
z:array[1..100] of real;
i:integer;
n:integer;

begin
ClrScr;
WriteLn('Program vypocita funkciu Z = 3+x+1/y-4');

{ nacita az pokial nezada y=4 }
n := 0;
repeat
n := n + 1;
Write('Zadaj x[',n,']='); ReadLn(x[n]);
Write('Zadaj y[',n,']='); ReadLn(y[n]);
until (y[n] = 4);


WriteLn;
WriteLn('Vysledna tabulka je');
WriteLn;
WriteLn('Por| X | Y | Z |');
WriteLn('-------------------------------');

for i:=1 to n-1 do
begin
z[i] := (3 + x[i] + 1)/(y[i]-4);
WriteLn( i:3,'|', x[i]:8:3, '|', y[i]:8:3, '|', z[i]:8:3, '|' );
end;

WriteLn('-------------------------------');
ReadLn;
end.

nepises na akej chybe ti ten UNTIL pada a co znamena "zapisalo klasicky" ?

no proste mi treba vymazat tu tabulku, nechtam ziadna nieje anech to pise len tak ze veta napriklad ze vysledok je: ...alebo tak neako

no a k tej chybe mi pise stale ze syntaxerror ,";" expected but UNTIL found

cely kod mi v delphi isiel bez problemu, aky pascal pouzivas? nemas v realnom kode niekde preklep ? formatovanie vystupu si zmen podla potreby cast kodu
uprav prikaz WriteLn napriklad:

na vystupe budes mat iba poradove cislo vysledku a samotny vysledok.
apropo tvoj program vypise vsetky vysledky okrem vysledku posledneho vstupu ktory zabezpecuje ukoncenie zadavania

noooo vidim vidi, ale nechapem , neako pre mensich odbornikov by sa to dalo este vysvetlit alebo napisat :D.. ale ajtak dakujem pekne krasne

ja robim vo freepascal programe, a neviem ci tam s tym UNTIL je chyba, neviem ju odhalit .. vobec vobec

testol som to aj vo freepascale a ten kod funguje bez chyby, urcite pri vkladani do freepascalu niekde mas preklep.

noo dobre takskusim pohladat tie chybicky a dakujem velmi pekne krasne

najjednoduchsie to budes mat ak si copy/paste kod z tejto stranky vlozis do .pas suboru v tvojom freepascale

ale ved do pascalu sa neda kopirovat nic ... aspon ja som nedosla na to ako by sa dalo do pascalu kopirovat z inych programov,viem ze len z pascalu do pascalu sa da

no ved si vytvor novy subor s priponou .pas v nejakom textovom editore napriklad notepade a do suboru vkopiruj dany text a potom ho uloz. nasledne si ten subor otvor v pascale.