После того, как выполнится процедура d, курсор переместить на первую позицию первой строки

while not eof(f) do
begin
inc(g);
readln(f,q);
d(q);
end;

uses graphabc;
 
var f:text;
q:string;
oh:integer;
a:array[1..20] of integer;
g:integer;
pr:real;
//==============================================
procedure d2(s:string; o,k:integer);
var h:string;
i,j:integer;
begin
writeln(s);
for i:=1 to k do
begin
readln(f,h);
writeln(h);
end;
readln(j);
if (j=o) then 
begin
setfontcolor(clgreen);
writeln('Правильно');
a[g]:=1;
end
else
begin
setfontcolor(clred);
writeln('Неправильно');
inc(oh);
a[g]:=0;
end;
setfontcolor(clblack);
writeln('Нажмите Enter для продолжения...');
readln;
end;
//=============================================
procedure d(s:string);
var o,err,k:integer;
g:string;
begin
g:=copy(s,length(s),1);
val(g,k,err);
delete(s,length(s),1);
g:=copy(s,length(s),1);
val(g,o,err);
delete(s,length(s),1);
d2(s,o,k);
end;
//=================================================
begin
oh:=0;
g:=0;
assign(f,'v.txt');
reset(f);
while not eof(f) do
begin
inc(g);
readln(f,q);
d(q);
end;
close(f);
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(0,0,1000,1000);
pr:=((20-oh)/20)*100;
end.

procedure d2(s:string; o,k:integer);
var h:string;
i,j:integer;
begin
textout(0,0,s);
for i:=1 to k do
begin
readln(f,h);
textout(0,20,h);
end;
readln(j);
if (j=o) then
begin
setfontcolor(clgreen);
textout(0,40,'Правильно');
a[g]:=1;
end
else
begin
setfontcolor(clred);
textout(0,40,'Неправильно');
inc(oh);
a[g]:=0;
end;
setfontcolor(clblack);
textout(0,60,'Нажмите Enter для продолжения...');
readln;
end;

for i:=1 to 2 do
textout(10,i*20,'s[i])  ;

uses
    graphabc;
 
var
    f: text;
    q, b2, b, z, bx, bx1: string;
    oh: integer;
    a: array[1..100] of integer;
    g, t, i: integer;
    pr, b1: real;
//==============================================
procedure d2(s: string; o, k: integer);
var
    h: string;
    i, j, t, n, x: integer;
begin
    t := 1;
    x := 1;
    while length(s) <> 0 do
    begin
        textout(x * 8, t, s[1]);
        delete(s, 1, 1);
        inc(x);
        if x >= 79 then 
        begin
            x := 1;
            inc(t, 20);
        end;
    end;
    for i := 1 to k do
    begin
        inc(t, 20);
        readln(f, h);
        x := 1;
        while length(h) <> 0 do
        begin
            textout(x * 8, t, h[1]);
            delete(h, 1, 1);
            inc(x);
            if x >= 79 then 
            begin
                x := 1;
                inc(t, 20);
            end;
        end;
    end;
    inc(t, 20);
    readln(j);
    if (j = o) then
    begin
        setfontcolor(clgreen);
        textout(8, t, 'Правильно');
        a[g] := 1;
    end
    else
    begin
        setfontcolor(clred);
        textout(8, t, 'Неправильно');
        inc(oh);
        a[g] := 0;
    end;
    inc(t, 20);
    setfontcolor(clblack);
    textout(8, t, 'Нажмите Enter для продолжения...');
    readln;
end;
//=============================================
procedure d(s: string);
var
    o, err, k: integer;
    g: string;
begin
    g := copy(s, length(s), 1);
    val(g, k, err);
    delete(s, length(s), 1);
    g := copy(s, length(s), 1);
    val(g, o, err);
    delete(s, length(s), 1);
    d2(s, o, k);
end;
//=================================================
begin
    SetWindowTitle('Тестерующая программа');
    SetWindowIsFixedSize(true);
    SetWindowWidth(640); 
    SetWindowHeight(480);
    CenterWindow;
    setfontname('DejaVu Sans Mono');
    oh := 0;
    g := 0;
    assign(f, 'v.txt');
    reset(f);
    setpencolor(clwhite);
    setbrushcolor(clwhite);
    while not eof(f) do
    begin
        rectangle(0, 0, 1000, 1000);
        inc(g);
        readln(f, q);
        d(q);
    end;
    close(f);
    setpencolor(clwhite);
    setbrushcolor(clwhite);
    rectangle(0, 0, 1000, 1000);
    pr := ((20 - oh) / 20) * 100;
    b1 := round(pr * 100) / 100;
    str(b1, b2);
    b := 'Вы ответили правильно на ' + b2 + ' процентов вопросов';
    textout(8, 1, b);
    t := 21;
    for i := 1 to 20 do
    begin
        inc(t, 20);
        if a[i] = 0 then
        begin
            str(i, bx1);
            bx := bx1 + ') Неправильно';
            setfontcolor(clred);
            textout(8, t, bx);
        end
        else
        begin
            str(i, bx1);
            bx := bx1 + ') Правильно';
            setfontcolor(clgreen);
            textout(8, t, bx);
        end;
    end;
    
end.