Написать на экране n раз фразу "pascal" язык програмирования

Program pascal;
var s:string; n,i:integer;
begin
   writeln('Daite frazu '); readln(s);
   writeln('Daite N'); readln(n);
   for i:=1 to n do writeln(s); 
    readln;
end.

this program will show any phrase you will indicate for N times you want