Текстовый файл. Распечатать строку с заданным номером

var pfile:textfile;
begin
     write('Введите строку ');
     var stroka:word;
     readln(stroka);
     assign(pfile,'1.txt');
     reset(pfile);
     var i:word:=0;
     var s:string;
     while (not eof(pfile)) and (i<stroka) do begin
          inc(i);
          readln(pfile,s);
     end;
     closefile(pfile);
     if i=stroka then begin
          writeln(' Вот вам строка ');
          writeln(s);
     end 
     else writeln('нет такой строки ');                    
end.

Procedure vivod(x:integer); Х - номер строки, которую вывести надо
var i:integer;
begin
i:=0;
assign(f,'file.dat');
reset(f);
while not eof(f) do
begin
inc(i);
readln(f,s);
if i=x then
writeln(s);
end;
close(f);
end;

Var s:string;
    f:text;
    x:integer;
Procedure vivod(x:integer); 
 var i:integer;
 begin
 i:=0;
 assign(f,'file.dat');
 reset(f);
 while not eof(f) do
 begin
 inc(i);
 readln(f,s);
 if i=x then
 writeln(s);
 end;
 close(f);
 if x>i then writeln('Нету такой строки');
 end;
 Begin
     write('Введите номер строки которую вывести надо: ');readln(x);
     Vivod(x);
 End.

Procedure vivod(x:integer); Х - номер строки, которую вывести надо
var i:integer;
begin
i:=0;
assign(f,'file.dat');
reset(f);
while not eof(f) do
begin
inc(i);
readln(f,s);
if i=x then
writeln(s);
end;
close(f);
end;