neviem us

//V textovom subory su zapisane meno a priezvisko ziakov tak ze v kazdom riadku je meno a priezvisko jedneho ziaka
//ziaci.txt
//Program urobí vypíše iniciálky žiakov
//vypise mena
//program vypise priezviska
program databazamien;
{$APPTYPE CONSOLE}
uses SysUtils;
var z:text; m,p:string; c:char;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(z,'ziaci.txt');
  reset(z);
  while not eof(z) do
    begin
      m:='';
      p:='';
      while not eoln(z) do
        begin
          repeat
            read(z,c);
            if c<>' ' then m:=m+c;
          until c=' ';
          repeat
            read(z,c);
            p:=p+c;
          until eoln(z);
          writeln(m,' ',m[1]);
          writeln(p,' ',p[1]);
          writeln;
        end;
      readln(z);
    end;
  close(z);
  readln;
end.