한 줄 읽기 - Pascal

type    string80   = packed array [1..80] of char;   { general string }

procedure inpstr(var str : string80);
var i: integer;
begin
   for i := 1 to 80 do str[i] := ' ';
   i := 1;
   while (i <= 80) and not eoln do begin
      read(str[i]);
      i := i + 1
   end;
   readln;
   if (i > 80) then prterr()
end;