I need to o an assignment where i make two programs, one to write a list of players in a team and their scores, the other to read and search the .dat file for specific players. i have chosen to do this with an array but when i run my 1st program after i enter my first players score i get an exitcode 201. Im not sure what to do and im running out of time.
Program TeamWrite; Var FName : String; UserFile : Text; Players : array[1..10] of string; Score : array[1..10] of integer; List1: Integer; List2: Integer; BEGIN FName := 'Team'; Assign(UserFile, 'C:\Team.dat'); Rewrite(UserFile); FOR List1:= 1 to 10 DO begin Writeln('Enter players name and score separated by pressing enter.'); Readln(Players[List1]); Readln(Score[List2]); Writeln(UserFile, Players[List1]); Writeln(UserFile, Score[List2]); end; close(UserFile); End.