НАЙДИТЕ ПЛИЗ ОШИБКУ, Динамическая память и указатели Опции

[Neon6868]

Задание внизу на фотке!!!!!!!!!!
(Надо делать задание 2.3!!!)
Программа должна поменять 2 строки текста.Но она почему-то ничего не меняет!!!!!
Вот программа:

Program DP;
   const
    d=250;
    n=10;
    k=25;
   type
    st=string[d];
    ptrstr=^st;
    mytext=array [1..n] of ptrstr;
    t2=^mytext;
   var
    i,j:integer;
    t:t2;
    t1:text;
Procedure Myswap(var t:t2;i,j:integer);
   var
    a:ptrstr;
   Begin
    a:=t^[i];
    t^[i]:=t^[j];
    t^[j]:=a;
   End;
Begin
    assign(t1,'G:\abc.txt');
    reset(t1);
    new(t);
    writeln;
    for i:=1 to n do t^[i]:=nil;
    for i:=1 to n do
   begin
    writeln;
    for j:=1 to k do
   begin
    read(t1,t^[i]^[j]);
    write(t^[i]^[j]);
   end;
    close(t1);
   end;
    writeln;
    writeln('Vvedite i-uyu stroky matrici:');
    readln(i);
    writeln('Vvedite j-uyu stroky matrici:');
    readln(j);
    reset(t1);
    myswap(t,i,j);
    writeln('Preobrazovanii tekst:');
    for i:=1 to n do
   begin
    writeln;
    for j:=1 to k do
   begin
    read(t1,t^[i]^[j]);
    write(t^[i]^[j]);
   end;
   end;
   close(t1);
   dispose(t);
End.

М

Теги! мисс_граффити

Сообщение отредактировано: мисс_граффити - 8.03.2007 23:23

[мисс_граффити]

вот так на некоторых файлах работает:

Program DP;
   const
    d=250;
    n=4;
    k=10;
   type
    st=string[d];
    ptrstr=^st;
    mytext=array [1..n] of ptrstr;
    t2=^mytext;
   var
    i,j:integer;
    t:t2;
    t1:text;
Procedure Myswap(var t_i,t_j:ptrstr);
   var
    a:ptrstr;
   Begin
    a:=t_i;
    t_i:=t_j;
    t_j:=a;
   End;

Begin
    assign(t1,'C:\abc.txt');
    reset(t1);
    new(t);
    writeln;
    for i:=1 to n do
      begin
      t^[i]^:='HereIsText';
      for j:=1 to k do
        read(t1,t^[i]^[j]);
      writeln(t^[i]^);
      end;
    writeln;
    writeln('Vvedite i-uyu stroky matrici:');
    readln(i);
    writeln('Vvedite j-uyu stroky matrici:');
    readln(j);
    myswap(t^[i],t^[j]);
    writeln('Preobrazovanii tekst:');
    for i:=1 to n do
      writeln(t^[i]^);
    close(t1);
    dispose(t);
    readln;
End.

Если в файле есть разбивка по строкам - могут быть проблемы...