Sorry, nepradpokladám že by bola chyba v programe pretože keď ho spustím cez IDE tak beží pekne. Neviem ale ak niečo najdeš tak budem rad.
program rec1;
TYPE
student = object
rawData : string;
trieda : string;
meno : string;
priezvisko : string;
spravanie : 1..4;
matematika : 1..5;
informatika : 1..5;
o_absencia : 1..200;
no_absencia : 1..20;
procedure getDataFromString(content:String);
END;
procedure student .getDataFromString(content:String);
begin
rawData := content;
end;
var ziak : student;
sourceFile : text;
line : string;
i : integer;
begin
writeln('krok1');
assign(sourceFile,'pokus.txt');
rewrite(sourceFile);
for i:=1 to 10 do begin
writeln(sourceFile,'joujou');
end;
ziak.trieda := 'wtf';
ziak.getDataFromString('blabla');
writeln(ziak.rawData);
writeln(ziak.trieda);
end.