помогите с массивами в Delphi

[MaksimSeriy]

Задание: Каждый из элементов ti массива Т(т) заменить минимальным среди первых i элементов этого массива.

при этом необходимо кол-во элементов в массиве ввести в TEdit а исходный и результативный массив вывести в TMemo, вот тут и косяк, например вот эта конструкция выдает ошибку:

var

S:array [0..9] of integer;

i,n:integer;

begin

n:= strtoint (ed_input.Text);//ввод эл-тов массива

for i:=0 to n-1 do

S:= strtoint(Memo_in.Lines);

Memo_out.Lines.Clear;

for i:=0 to n-1 do

Memo_out.Lines.Add(inttostr(s));

end;