Can I read data this kind:

procedure readdata;
var
s:string;
n:integer;

begin
  readln(n);
  for i:=1 to n do
  begin
    readln(s);
    check(s);
  end;
end;