Studentu kategorijos

program Studentai;

const
  Duomenys = 'duomenys.txt';
  Rezultatai = 'rezultatai.txt';

Type
  Info = Record
               Vardas:string;
               Pavarde:string;
               Slapyvardis:string;
               Telefonas:string;
               Email:string;
         End;
var
   Studentas : info;
   R,D : text;
   num : Longint;
   zod,zod2 : String;

begin
  Randomize;
  assign(D, Duomenys); reset(D);
  assign(R, Rezultatai); rewrite(R);
  repeat
        Begin
           Readln(D,Studentas.Vardas); writeln(R,'Vardas: ', Studentas.Vardas);
           Readln(D,Studentas.Pavarde); writeln(R,'Pavarde: ', Studentas.Pavarde);
           num := random(999);
           Str(num,zod);
           num := random(9);
           Str(num,zod2);
           zod:=zod+zod2;
           Writeln(R,'Slapyvardis ', UpCase(Copy(Studentas.Vardas,0,2)+Copy(Studentas.Pavarde,0,2)+zod));
           Writeln(R);

      end;
  until eof(D) ;
  Close(R);
  Close(D);
end.