Parachute RGB

program parachuteRBG;
uses wincrt;
Var
f:text;
procedure create (var f:text);
Var
c:string;
Begin
    write ('Enter the file name : C:\bac\ ');
    readln (c);
    c:='C:\bac\'+c+'.txt';
    assign (f,c);
end;
procedure RGB (var f:text);
Var
i:integer;
ch:string;
Begin
    reset (f);
    if eof(f) then writeln ('The file is empty');
    Repeat
        readln (f,ch);
        textcolor(red);
        writeln (ch);
        if eof(f) then reset (f);
        readln (f,ch);
        textcolor(blue);
        writeln (ch);
        if eof(f) then reset (f);
        readln (f,ch);
        textcolor(Green);
        writeln (ch);
        if eof(f) then reset (f);
        readln (f,ch);

    Until i=1;
    close (f);
end;
Begin
    create (f);
    RGB(f);
end.