Someone

program antrauzduotis;
var stotelpav:string[15];
    stotelsk,vlnval,vlnmin:integer;

procedure nuskaitymas;

      var greitis,atstumas:integer;
          failas:text;
          failopath:string;
          
    begin
      failopath:='c:\Duom2.txt';
      assign(failas,failopath);
      rewrite(failas);
      readln(stotelsk,greitis,vlnval,vlnmin);

      while not EOF(failas) do   begin
          readln(stotelpav,atstumas);
          
          end;
      close(failas);
   end;
    

begin
  nuskaitymas;

  writeln(stotelpav,stotelsk,vlnval,vlnmin);
  readln;
end.