Programe pascal

bn je ss debutant en programation, g ecrit un programe qui doit lire les nom des clients et le total points de chaque clients
bref, mon problem si que lors l'execution le programe saute l'instruction read(x) {x:string;}
voila le programe , merci de votre aide

program clients;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,n,j,nb,a:integer;
x:string;

begin
write('entre le nombre de client ');
read(n);

for i:= 1 to n
do
begin
writeln('entre le nom de clients');
read(x);
nb:=0;
for j:= 1 to 4
do
begin
writeln('donne le nombre de point de semaine ',j,' de client ',x);
read(a);
nb:=nb+a;
writeln;
writeln('le nombre de points de client ',x,' est ',nb);
writeln;
end;
if nb<50
then
writeln('NBRE DE POINTS NON ATEINT')
else
if nb <= 100
then
writeln('BON D"ACHAT DE 200 DA')
else
writeln('BON D"ACHAT DE 300 DA');
end;
readln;readln;


end.