Ich würde ein bißchen mehr mit Variablen arbeiten und ggf. die Eingaben noch etwas ausführlicher prüfen, ob das auch wirklich Zahlen sind.
Delphi-Quellcode:
var
Abbruch: Boolean;
EingabeOK:Boolean;
Ausgabe:String;
Eingabe:String;
a,b,c: Strings;//?
begin
Abbruch := False;
repeat
//Eingabewerte holen
haste ja in etwa schon
//Eingabewerte prüfen (und gleichzeitig umwandlung Eingabestrings in Zahlenwerte
EingabeOK := Alle Eingaben sind Integer/Floats(?) und a<>0
//Ergebnis berechnen, wenn Eingabe OK
if EingabeOK then
begin
end;
//Ausgabe der Antwort
//Spielwiederholungsfrage
write('Keine Lösung möglich! Möchten sie eine weitere Gleichung lösen? Ja= j, Nein= n');
readln(Eingabe);
Abbruch := LowerCase(Eingabe)<>'j';
until Abbruch;
write('Tschüsssi');
readln;
end;