PROGRAM  skaitomfaila;

      VAR  fa : text;

            xx, pavarde : string;

            kursas, grupe : integer;

            pazym,  stip : real;

      BEGIN

            WRITELN ('iveskite failo varda, kur yra duomenys apie studentus');

            READLN (xx);

            ASSIGN (fa, xx);

            RESET (fa);

            ClrScr;

            WRITELN (' 2 kurso 1 grupes studentu duomenys');

            WRITELN ('---------------------------------------------');

            WHILE  not EOF(fa)  DO

                 BEGIN  

                  READLN (fa, pavarde);

                  READLN (fa, kursas, grupe, pazym, stip);

                  …

                  IF  (kurs = 2) and (grupe = 1) 

                      THEN  WRITELN (pavarde:20, pazym:5:2, stip:10:2); 

                END;

      END.