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

[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.

[andrewpalkin]

И в чем ошибка ???

[Drago56]

s[i] := chr(ord(s[i]) + 32);вроде
Это точно я бы и хотел узнать!!!

[andrewpalkin]

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

s[i] := chr(ord(s[i]) + 32);вроде
Это точно я бы и хотел узнать!!!

Ну не помешало бы и условие задачи сказать , что ты пытаешься сделать

[Drago56]

Надо в текстовый фаил засунуть программу которая будит выполнять следующие(Поменять все прописные буквы на строчные кроме тех которые будут стоять после точки)

[andrewpalkin]

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

Надо в текстовый фаил засунуть программу которая будит выполнять следующие(Поменять все прописные буквы на строчные кроме тех которые будут стоять после точки)

А что именно не работает , просто у меня на компе нет паскаля .

[vovk]

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

Надо в текстовый фаил засунуть программу которая будит выполнять следующие(Поменять все прописные буквы на строчные кроме тех которые будут стоять после точки)

в текстовый фаил засунуть программу это как?

[Dj_smart]

for i:=1 to length(s) do begin
  if s[i]='.' then break;
  if s[i] in ['a'..'z'] then begin
    s[i] := chr(ord(s[i]) + 32);
  end;
end;

А теперь уйди.

[Stilet]

Кросспостим?