Исправте ошибку

[Drago56]

Пожалуйста помогите исправить ошибку!!!

uses crt;
var
  s: string;t1,t2:text;
  i: integer;
  Begin
  assign(t1,'text.txt');
  rewrite(t1);
  ReadLn(s);
  writeln(t1,s);
  close(t1);
  reset(t1);
  while not eof(t1) do begin
  i := 2;
 while ((s[i] <> '.') and (s[i] <> ' ')) do begin
      s[i] := chr(ord(s[i]) + 32);
      Inc(i);
      if i > Length(s) then break;
    end;
    if i > Length(s) then break;
    if s[i] = '.' then Inc(i);
    Inc(i);
  end;
  WriteLn(s);
 close(t1);
end.

[p51x]

какую ошибку?

[Stilet]

Главная ошибка - нет чтения из фаайла

  while not eof(t1) do begin
  readln(t1,s);

Ну и так себе ошибка, не видно что в консоли отработано

 readln;
end.

А задача непонятна все равно...

[vovk]

Сообщение от Stilet

Ну и так себе ошибка, не видно что в консоли отработано

 readln;
end.

Это скорее всего ABCpascal средство обучения, но никак не разработки.

[Drago56]

Да это АВС

[Drago56]

Всем спасибо уже что то близко на половину работает!!!

[vovk]

что не так то происходит?

[Drago56]

Она переводит буквы тока 1 строчку ,остальные нет!
Привет: Ввод-ФЫВАП ПРО.ЛДЖЭ ЯЧСМ.
Ответ:Фывап про.ЛДЖЭ ЯЧСМ.