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;