Programa que calcula Porcentagem - PZim!

Boa noite pessoal!

O algoritmo a seguir vai fazer as seguintes instruções:

Vai ler e imprimir o ID do garçom, a quantidade de mesas atendidas, assim como o valor arrecadados pelo garçom, e ao final vai calcular e mostrar os 10% que o garçom vai ganhar. A condição para o programa parar de calcular é o ID ser igual a 0 (Zero).

Program Gorjeta ;
var
id, qnt_mesa: integer;
valor_mesas, porc: real;
Begin
 
 
  writeln ('Digite ID Garçom, digite 0 "Zero" para parar: ');
  read (id);
 
  While (id <> 0) do
  begin
  Writeln ('Digite quantidade de mesas atendidas: ');
  read (qnt_mesa);
  writeln ('Digite o valor arrecadados pelo garçom: ');
  read (valor_mesas);
 
  writeln ('ID do garçom: ', id);
  writeln ('Quantidade de mesas atendidas: ', qnt_mesa);
  writeln ('10% do garçom R$', valor_mesas * 0.10:3:2);

writeln ('Digite ID Garçom: ');
read (id);
end;

End.