Szín-kép érettségi feladat pascalban?

Elakadtam a Szín-kép nevű feladatnál:(

Valaki segítene legyen oly szíves?:( Fogalmam sincs, h hogy folytassam tovább (az egészet megszeretném oldani)

Ennyit sikerült eddig összehoznom:

program szin;

uses crt;

type szinek = record

piros:byte;

zold:byte;

kek:byte;

end;

var szamok:array [1..2500] of szinek;

i,j,k:byte;

f:text;

begin

assign(f,'kep.txt');

reset(f);

i:=0;

i:=i+1;

while not eof(f) do begin

j:=0;

close(f);

readln;

end.