FreePascal problem with reading from FILE to ARRAY

[Zahuczky]

Hi guys!
Last time, when i had a problem with programming I got quick and good answers here, so i thought I would share one of my other problems here.
So, I have a task, which for the upper level IT High School exam.
I have to read data from a txt file, into arrays.

program eutazas;
uses crt;
var i,j,n:integer;
	megall:array[1..2000] of integer;
	datum:array[1..2000] of longint;
	kotojel:char;
	ido:array[1..2000] of string[4];
	azon:array[1..2000] of longint;
	tipus:array[1..2000] of string[3];
	lejarat:array[1..2000] of longint;
	szkoz:char;{szokozok beolvasasa}
	f:text;
	
	
	
procedure beolvasas;
var i:integer;
begin
assign(f,'utasadat.txt');
reset(f);
for i:=1 to 2000 do
readln(f,megall[i],szkoz,datum[i],kotojel,ido[i],szkoz,azon[i],szkoz,tipus[i],szkoz,lejarat[i]);
close(f);
{szamlalas}
j:=1;
repeat
if azon[j]<>0 then inc(n);
inc(j);
until azon[j]=0;
end;{beolvasas}

This is(a part of) my code. 
0 20190326-0700 4170861 NYB 20190404
And this is one line from the database txt file.
I try to read every part of the line into different arrays. 
For the date and time(20190326-0700) first i used a string[13] array, but in a later task i had to use only the date part of it, so i had to make it a longint of array, with seperating the date and time.
I used longint for the date part of it, a char for the '-' mark, and a string[4] for the time. But after that, it compiles, but when I try to run it I get Runtime Error 106(non-numeric value is read from a text file, and a numeric value was expected).

Maybe the way i try to read it parts is messed up already. If thats the case, can anyone recommend me another way, to make it posibble.
I have to use arrays, and it would be too much hassle to make new types, because the time for the exam is kinda short.

Thank for any help in advance!

Ps.: Oh, and sorry for the strange array names. They make sense in my language.

[AbydosOne]

33 minutes ago, Zahuczky said:

Thank for any help in advance!

It looks to me like when you're parsing the date, the program doesn't stop at the "-", so it's trying to read all characters until the next space as a number, and complaining about the dash. You'll need to parse the whole section as a string, and then take the first 8 characters and make the long out of that.

[Zahuczky]

2 minutes ago, AbydosOne said:

It looks to me like when you're parsing the date, the program doesn't stop at the "-", so it's trying to read all characters until the next space as a number, and complaining about the dash. You'll need to parse the whole section as a string, and then take the first 8 characters and make the long out of that.

Sooo, for first i should read it as i did before, with string[13], and after that, take the string apart? You look like you know what youre talking about, but I dont reall get it.

 

[AbydosOne]

3 minutes ago, Zahuczky said:

Sooo, for first i should read it as i did before, with string[13], and after that, take the string apart? You look like you know what youre talking about, but I dont reall get it.

Yep, that's basically it. You'd end up with string[8] + string[1] (the dash) + string[4], and then turn them into whatever numeric data types you need.

[Zahuczky]

1 minute ago, AbydosOne said:

Yep, that's basically it. You'd end up with string[8] + string[1] (the dash) + string[4], and then turn them into whatever numeric data types you need.

And i should use val() for that right? How exactly should i do that?

 

[AbydosOne]

1 minute ago, Zahuczky said:

And i should use val() for that right? How exactly should i do that?

I'm not well versed in the FreePascal, but according the The Google, there is a "StrToInt" function that looks like it would do what you need, but it looks like "Val" would also work (just a bit more complicated).

[Zahuczky]

I figured out. for i:=1 to n do val(sdatum, datum); {sdatum is the string form of it and datum is another array but of integer}
Thank you for your help!

 

[mariushm]

The code screams for use of record:  https://wiki.freepascal.org/Record

 

Use just one array , something like  

 

type
	TfileRecord = record
		megall: integer; 
		datum,lejarat,azon: longint; 
		kotojel:char; 
		ido:string[4]; 
		tipus: string[3] 
	end;

var  myLines : array [1..2000] of TfileRecord;


myLines[1].tipus := "123";