Задачи на While и Repeat

[JohnOtto]

1)У прилавка в магазине выстроилась очередь из n покупателей. Время обслуживания продавцом i-того покупателя равно t,t2...,tn. Получить с2,с2,...сn, где с- время пребывания i-того покупателя в очереди. Указать номер покупателя, для обслуживания которого продавцу потребовалось самое малое время.

2)Два простых числа наз. "близнецами" если они отличаются друг от друга на z. Напечатать все пары "близнецов" из отрезка [n,zn], где n - заданное целое число, больше 2-х.

Эти две задачи надо решать: одну через While, другую через Repeat.
Заранее спасибо.

[__STDC__]

ну первая как-то так..

const
	n = 10;
	
type
	arr = array[1..n] of integer;

procedure fill_time_arr(var x:arr);
var
	i:integer;
begin
	randomize;
	for i:=1 to n do
		x[i] := random(10)+1;
end;

procedure fill_c_arr(var x:arr; y:arr; var min_time,min_num:integer);
var
	i:integer;
begin
	x[1] := y[1];
	min_time := y[1]; min_num := 1;
	i := 2;
	while (i <= n) do begin
		x[i] := x[i-1]+y[i];
		if (y[i] < min_time) then begin
                     min_time := y[i];
                     min_num := i;
                end;
		inc(i);
	end;
end;

procedure out_arr(x:arr);
var
	i:integer;
begin
	for i:=1 to n do
		write(x[i]:3);
	writeln;
end;

var
	t,c:arr;
	min_time,min_num:integer;
begin
	fill_time_arr(t);
	out_arr(t);
	fill_c_arr(c,t,min_time,min_num);
	out_arr(c);
	writeln('Minimum time is: ',min_time);
        writeln('Number of customer: ',min_num);
	readln;
end.

вторую не буду решать.. ухожу уже..

[JohnOtto]

Большое спасибо _STDC_!!! ТЫ мне очень помог!