Есть программный код. Надо составить блок-схему. Помогите пожалуйста.

Question

program max; 
var 
 A, B : Extended; 
 S : String; 
begin 
 repeat 
 Write('Введите X: '); 
 Readln(A); 
 Write(' Введите Y: '); 
 Readln(B); 
 if B > A then A := B; 
 Write(' Введите Z: '); 
 Readln(B); 
 if B > A then A := B; 
 Writeln('Наибольшее число: ', A); 
 Writeln('Повторить - Enter, выход - Esc.'); 
 Readln(S); 
 until S <>; 
end.

Денис Петров · Accepted Answer

это какой язык, и что за условие задачи, не понятно, а схему по Гост 19.701-90 могу, если это Паскаль и не работает until S <>;