Question

I probably have a basic problem. I’ve been trying to read an array from file and AFTER that a string from standard input in Pascal language. It doesn’t send an error message, it just doesn’t wait ’till I write the input string on the screen. What should I do?

Here’s my code:

Procedure beolvas(var x:rangsor; var n:byte; fajl:string);
var i:byte;

Begin
  Assign(input,fajl);
  Reset(input);
Readln(n);
for i:=1 to n do begin
   Readln(x[i].diak);
   Readln(x[i].atlag);
end;
close(input)
End;

Procedure beolvasnev(var s:string; x:rangsor; n:byte);
var i:byte;
Begin
Write('Kerem a diak nevet: ');
Readln(s);
End;

Answer 1

Try Assign(input, ''); (empty file name) after you’ve finished with the file variable, that’s after you’ve called close(input).