Найдите ошибку в задаче

[Npwas]

Вообщем плане пытаюсь прост понять как работаят строки в Delphi!!!
Вот слова вводит, а ошибка в том что не хочет вывести их потом, а лишь только последнее!!! Можно ли както исправить чтобы, она все строки в памяти хранила, а не последнюю?!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s: string;
  i,x:Integer;
begin
 x:=0;
     Writeln('Vvedite perechen jelaemich slow!!!');
     Writeln('Jesli ne hotite prodoljit to najmite /No');
{Ввод слов}
  for i:=1 to 100  do
   begin
    if  not (s='/No') then
     Readln(s)
    else Break;
    x:=x+1;
   end;
{Вывод слов}
  Writeln('Vivod slov');
  For i:=1 to x do begin
  Writeln(s);
  end;
  Readln;
end.

[Dush]

используйте или массив строк или TStrings.

[QunneD]

Массивы, область памяти, исходной файл, также еще одна переменная string которая вмещает в себя 65,536 символов, соответственно как изощренный вариант можно хранить вводимые слова в ней, разделяя разделителем, а дальше парсинг.

Как самый оптимальный вариант - массив.

TStrings

Не советую использовать этот объект-класс, ибо при подключении либки которая содержит его, к размеру приложения прибавляется значительный лишний вес.

Учитесь делать всё сами, так быстрее начнете достигать профессионального уровня в программировании.

[Npwas]

Эх!!! Про массив то я и сам понимаю, но задачу то на строки дали!!! Может возможно переходить из массива в строки, да и на оборот?!

[QunneD]

Может возможно переходить из массива в строки, да и на оборот?!

Какбэ, да.

var
Array[1..100] of String;

http://www.delphibasics.ru/Array.php

[Npwas]

Спс за помощь!!! На весы нажал!!!