рациональную дробь перевести в цепную дробь. на Паскале. (проверьте программку, где то ошибка:( )

[masal86]

Эта программа должна рациональную дробь переводить в цепную дробь

procedure Express;
var
a,b,t: integer;
q: char;
begin
repeat
writeln ('введите числитель=');
readln (a);
writeln ('введите знаменатель=');
readln (b);
if b=0 then writeln ('знаменатель не может быть=0')
else begin
write (' [');
while (a mod b>0) do
begin
write (a div b,',');
a: =(a mod b);
t: =b;
b: =a;
a: =t;
end;
write (a div b, '] ');
end;
writeln ('повторить (Y/N) ');
q: =ReadKey;
until q in ['N','n'] ;
clrscr;
end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[masal86]

Кто нибудь, проверьте плиз.