Одномерный символьный массив., Описать символьный массив длиной 80 символов. Массив просмотреть до т Опции

[arcan]

Помогите пожалуйста.Описать символьный массив длиной 80 символов.
Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слово максимальной длины.
Вот у меня есть код программ.

Код

program pr;
var
  maxlen, maxpos, lastsp, curlen, i, n: Integer;
  str: String;
begin
  WriteLn('Vveidite stroku : ');
  ReadLn(str);
  n := Length(str);
  maxlen := 0;
  lastSp := 0;
  curlen := 0;
  for i:=1 to n do begin
    if str[i] = ' ' or str[i] = '.'  then begin
      if curlen > maxlen then begin
        maxlen := curlen;
        maxpos := lastsp + 1;
      end;
      curlen := 0;
      lastsp := i;  
    else
      Inc(curlen);
   end;
   if str[i] = '.' then Break;
  end;
if maxlen > 0 then
    WriteLn('Stroka s max.dlinoj = ', Copy(str, maxpos, maxlen))
  else
    WriteLn('Indjuk, ti vvel pustuju stroku');
  ReadLn;
end.

Поправте его, чтобы было связано с массивами.А то со стрингом, лабу не примет((

Сообщение отредактировано: arcan - 26.11.2006 21:39

[klem4]

в var вместо str: String; описывай массив str: array [1..80] of char;

ну и заменяй ввод и вывод

readln(n);
for i := 1 to n do readln(str[i]);

[arcan]

в var вместо str: String; описывай массив str: array [1..80] of char;

ну и заменяй ввод и вывод

readln(n);
for i := 1 to n do readln(str[i]);

Так я и делал,только не получается.Поэтому и решил обратиться за помощью.

[volvo]

Ты сначала программу со строками сделай нормально, чтобы она хотя бы компилировалась, а потом будешь исправлять... У тебя же в программе структура полностью нарушена...

[arcan]

Ты сначала программу со строками сделай нормально, чтобы она хотя бы компилировалась, а потом будешь исправлять... У тебя же в программе структура полностью нарушена...

Не понял.Измени пожалуйста.