ช้วยหน่อยนะครับ งง มากเลย repeat...until

หัวข้อคือ
1รับชื่อ
2รับเบอร์
3กลับไปรับชื่อไหม่จนครบ3ครั้ง
4แสดงชื่อทั้ง3เบอออกมา
หมายเหตูผมทำแล้วแต่มันไม่ผ่าน อ่าจานต้องการ ให้ ใช้ repeat ..until loopเดียว อะครับ
ดูที่ผมทำมานะครับ คือจะบอกไงดีไม่รู้ว่าจะเข้าใจไหม คือใช้loop เดียวแล้ว เก็บไว้ แล้วกลับมารับอีก2 ให้ครบ3ครังแล้วแสดง นะครับ
program submit2;
uses crt;
var g,u,n:integer;
    a,c,e,b,d,f:string[10];
    begin
    repeat
    clrscr;
    writeln('Input Name = ');
    readln(a);
    writeln('Input Tle. = ');
    readln(b);
    g:=g+1
    until(g=1);
    repeat
    clrscr;
    writeln('Input Name = ');
    readln(c);
    writeln('Input Tle. = ');
    readln(d);
    u:=u+1;
    until(u=1);
    repeat
    clrscr;
    writeln('Input Name = ');
    readln(e);
    writeln('Input Tle. = ');
    readln(f);
    n:=n+1;
    until(n=1);
    clrscr;
    writeln(a);
    writeln(b);
    writeln(c);
    writeln(d);
    writeln(e);
    writeln(f);
    readln;
    end.

เดียวว่างๆ จะมาแก้ให้

program name123;
uses crt;
var name : array[1..3] of String;
var i,x:integer;
begin
      clrscr;
      x:=1;
      i:=1;
repeat
      write('Enter Name',i,' : ');
      readln(name);
      i:=i+1;
until i>3;
      clrscr;
      writeln('You Name 1 = ',name[1]);
      writeln('You Name 2 = ',name[2]);
      writeln('You Name 3 = ',name[3]);

      readln;
end.

ด้านบนที่เขียนไปเป็น ตัวอย่างนะครับ

ลองไปประยุกต์แล้วดัดแปลงเพิ่ม เพื่อ รับเบอร์และชื่อเอาดูนะครับ