Number loop

program Proj_loop_number;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes;

var
  i, num: integer;
  num1: string;
  code: integer;

begin
  WriteLn('Write a number:');
  ReadLn(num1);

  // Ensure that integer gets in
  Val(num1, num, code);

  if code <> 0 then begin

    WriteLn('Error!');

  end else begin

    for i := 1 to num do begin
      WriteLn('Number: ', i);
    end;

  end;

  ReadLn;
end.