Pascal da Girilen Sayı Kadar Ad Soyad Yazan Program, Pascalda For Döngüsü

uses crt;
var
   i,N:Byte;
   isim:string;
Begin
     clrscr;
     Write('Adınızı ve Soyadınızı Giriniz='); Readln(isim);

     Write('Ka‡ kere yazılsın='); Readln(N);

     For i:=1 To N Do
     Writeln('Adınız Soyadınız=',isim);
     Readln;

End.