Pomoc s úkolem – Pascal – Fórum – Programujte.com

Já mám úkol:
Sestavte program, který určí výslednou teplotu vody, při smísení dvou různých množství vody o různých teplotách (použití kalorimetrické rovnice).
Vstup: - hmotnost a teplota prvního vzorku vody
- hmotnost a teplota druhého vzorku vody
Výstup: Výsledná teplota po smíchání
Program po zobrazení výsledné teploty nabídne možnost řešit další úlohu nebo skončit.

A já ho vytvořila, normálně se spustí a najednou, když zadám hodnoty, tak se to ukončí..Mrkněte se někdo na to co tam mám špatně.

uses crt;
var c,m1,t1,t,m2,t2:real;
ukonci:char;

begin
repeat
TextColor(Green);
Writeln;
Writeln('--- Program na vypocet kalimetricke rovnice ---');
writeln;
TextColor(White);
Write('Zadejte hmotnost 1 [kg]: ');
Readln(m1);
Writeln;
Write('Zadejte teplotu 1 [K]: ');
Readln(t1);
Writeln;
Write('Zadejte hmotnost 2 [kg]: ');
Readln(m2);
Writeln;
Write('Zadejte teplotu 2 [K]: ');

Readln(t2);

c:=c*(m2*(t2 - t)/t-t1)-m1;
Writeln('Celkova teplota je: ',round(c),'sputnu);

Write('Chcete-li ukoncit program stisknete "a": ');
ukonci:=upcase(readkey);
until ukonci='A';

end.

To co přiřazuješ k proměnný 'c' je zcela náhodný číslo, pravděpodobně vyjde -m1
Ale jinak - program se ukončí, protože pokud until vyhodnotí true, tak už za ním není žádný příkaz, který by mu v tom zabránil.
Mělo by bohatě stačit na konec napsat READLN; což ukončí program až když se stiskne ENTER

Jo já přehlédl readkey :-) v tom případě by tam ten READLN byl irelevantní, chyba je tedy pouze v přiřazování :-)

Ano hodnota t je po startu programu defaultně na 0 a dělení nulou nedělá mikroprocesorům dobře.