erstellen einer funktion getinteger

[PomBär]

Delphi-Quellcode:

program GetInteger;

{$APPTYPE CONSOLE}

uses
  SysUtils;
function GetName:string;
var p:string;
begin
repeat
write('einen Parameter bitte');
readln(p);
until
p<>'';
result:=p;

end;

end.

kann das stimmen?
ich weis nicht ich glaube da ist was falsch.